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ABSTRACT 


A need exists for a set of computer programs that can be 
used by students to solve elementary digital signal 
processing problems using a personal computer. This project 
involved the design and implementation of ten algorithms 
that solve such problems and an additional algorithm that 
creates plots of the various input and output sequences. 
The two primary goals of the programs were: 1) user 
friendliness and, 2) portability. With these goals in mind, 
the source code was written using Fortran-77 and compiled by 
a commercially available Fortran compiler specifically 
designed for personal computers. The plotting program uses 
a Fortran-compatible graphics package that is also com- 
mercially available. The programs, once compiled, can be 
distributed to users without the requirement to purchase 
either a Fortran compiler or a graphics package; however, 
access to a Fortran compiler enhances the utility of the 


programs. 


ee 


DISCLAIMER 


The reader is cautioned that computer programs developed in 
this research may not have been exercised for all cases of 
interest. While every effort has been made, within the time 
available, to ensure that the programs are free of computa- 
tional and logic errors, they cannot be considered vali- 
dated. Any applicatioiz. of these programs without additional 


verification is@at the risky onreenoeuser. 
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I. INTRODUCTION 


Introductory digital signal processing courses present a 
wide spectrum of challenging topics to students enrolled in 
the electrical engineering curriculum. Undergraduate level 
courses present the transition from analog, continuous-time 
systems to digital, discrete-time processes. Topics include 
difference equations, state-matrix equations, system 
transfer functions, frequency response and the z-transform. 
Furthermore, the relationship between the time domain and 
the frequency domain is introduced and discrete convolution 
is discussed. Graduate level courses introduce filter 
design techniques and track the development of the Fast 
Fourier Transform (FFT) from the Discrete Fourier Transform 
wort) . The interrelationships between circular convolu- 
tion/correlation and the DFT are discussed and a brief 
introduction to spectral estimation is given. 

In brief, the transition from the continuous-time method 
of system analysis to discrete-time methods is challenging 
to most students. While analytical methods are covered 
thoroughly in the classroom, computer solutions to problems 
reinforce learning by facilitating solutions to problems 
containing long sequences of data. Furthermore, the digital 
computer is the heart of digital Signal processing applica- 


tions in the real world. Ieee MeeoeeCiC clei tore, Fh 71S 


instructive to present computer programs that can perform 
many of the computations required for elementary digital 
Signal processing (DSP). 

The project summarized by this report involved designing 
a set of computer programs that can be used in a laboratory 
environment to reinforce the basic concepts of digital 
Signal processing. Although deviations exist, the al- 
gorithms developed in First Principles of Discrete Systems 
and Digital Signal Processing, by R.D. Strum and D.E Kirk 
(Ref. 1] were used extensively in the development of these 
programs. The programs were written using Microsoft Fortran 
77 Version 4.01.1 This compiler was chosen because of its 
flexibility. It will compile Fortran programs for personal 
computers enhanced with a math coprocessor (8087/80287) or 
for less capable machines. The total project consists of 
ten programs related to the solution of digital signal 
processing problems and an additional program which produces 
2-dimensional plots of the data. The plotting program was 
written using the Fortran-compatible Graphmatics software 
Library. The minimum hardware/software requirements 


necessary to run these programs are: 


| lMicrosoft Corp., 1987, Bellevue, Wa. The programs 
Will also compile after minor changes using Ryan McFarland 
Fortran Version 140 -crelaren. 
¢Microcompatibles Corp., 1983, Silver Springs we 
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* A personal computer with at least 320k of available 
memory. 


fee monitor with a CGA card installed.°? 

* A single double-sided, double-density diskette drive. 
The following options will either enhance the flexibility or 
increase the performance of the programs: 

* A Microsoft Fortran Compiler Version 4.01 or later. 

* A dot-matrix printer. 

Chapter II details the scope of the programs and the 
general methodology used in developing them. Chapter III 
provides the concise development of each program. Flow- 
Charts are presented to provide the architecture of the 
algorithms, depicting their macro-level design. Applicable 
equations are listed for each computational task and the 


corresponding Fortran implementation is discussed. 


3A computer graphics card is only required to support 
the graphics program PLOTDAT.FOR and is not required for the 
other programs. 


II. PROGRAM DEVELOPMENT 


This chapter presents the scope of the computer programs 
and the general methods used in designing them. The goals 
of computational efficiency and user friendliness are 
addressed as the two sometimes conflict. Finally, a generic 
program structure used throughout the software development 


is presented. 


A. SCOPE OF THEY PROGRAMS 
The package consists of ten problem solving programs and 
a two-dimensional plotting program. Each of the ten problem 
solving programs is oriented toward solving a specific DSP 
problem. The title of each program and its corresponding 
Fortran filename are listed below: 
Problem Solving Programs 


1. The frequency response of a digital filter. 
Filename: DIGFREQ.FOR 


2. The frequency response of an analog filter. 
Filename: ANLGFREQ.FOR 


3. The Discrete Fourier Transform (DFT) or Inverse DFT 
(IDFT) of a finite-length sequence. 
Filename: DFT.FOR 


4. The periodogram of a finite-length sequence. 
Filename: PRDGRM.FOR 


5. Convolution and correlation using the DFT algorithm. 
Filename: CONCORDT.FOR 


6. The Fast Fourier Transform (FFT) or Inverse FFT (IFFT) 
of a finite-length sequence. 
Filename: FFT.FOR 


fe Convolution and correlation using the FFT algorithm. 
Filename: CONCORFT.FOR 


Me OnVOlLULIOnN and correlation in the time domain. 
Filename: CONCOR.FOR 


9. The iterative solution to a linear, time-invariant 
difference equation. 
Filename: DIFFEQ.FOR 
10. The iterative solution to a set of linear, time- 
invariant state-matrix equations. 
Filename: STATEQ.FOR 
Plotting Program 
11. A file-driven, two-dimensional plotting algorithm. 
Filename: PLOTDAT.FOR 
B. GENERAL METHODOLOGY OF PROGRAM DEVELOPMENT 
All of the programs are oriented toward engineering 
students enrolled in elementary DSP courses. Since most 
engineering students have had at least some experience in 
Fortran programming, this language was an obvious choice. 
The programs can be executed without altering. any of the 
Fortran code; however, some of the subroutines were 
specifically designed to allow the addition of Fortran 
statements to produce a desired sequence of data. This 
option will be discussed in more detail in Chapter III. 
The source code structure of the algorithms is designed 
so that the user can follow the flow of each program as it 
performs the computations required by the task at hand. 


Computational efficiency is generally accepted to be one of 
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a program designer's primary goals. However, because these 
programs were designed with the DSP student as the ‘Target 
User', an overriding consideration was to make the flow of 
the programs understandable. For example, in CONCORDT.FOR 
the program will compute, among the options available, 
either the linear convolution or the circular correlation of 
two data sequences by using the DFT algorithm. The steps 
required by these two options are listed below (Ref. l1:pp. 
424,432,433]; 


Options — linear sComuclu tor 


1. Zero pad array #1. 

2. Zero pad array, #2. 

3. Compute the DFT of array #1. 

4. Compute the DFT of array #2. 

5. Multiply the results of steps 3 and 4. 
6. Compute the IDFT of step 5. 


Odeon: = Ci cullats sec micelleeanor 


1. Compute the DFT of array #1. 

2. Conjugate the result of step l. 

3. Compute the DFT of array #2. 

4. Multiply the results of steps 2 and 3. 
5. Compute the IDFT of step 4. 


Clearly, if maximum efficiency was the only goal of the 
programs, the steps could be combined as follows: 


Option: Linear Convolution or Circular Correlation 


1. If option = Linear Convolution then zero pad array #1 
and array #2. 

Compute the DFT of array #1. 

3. If option = Linear Correlation then conjugate the 
result of step 2. 

Compute the DFT of array #2. 

Multiply the results of steps 2 and 4. 

Compute the IDFT of step 5. 


NO 


OM 


However, by maintaining the separated algorithms, students 
can gain insight into the steps required to accomplish each 
of the tasks: iencansconveturloneor Clrcular Correlation. 
This example, although somewhat contrived, demonstrates the 
general approach taken when confronted with the issue of 
efficiency versus readability throughout the programming. 
It 1S more instructive to separate the Fortran source code 
according to the steps required to perform a specific 
functional task rather than combine steps to form an 
efficient but less readable algorithm. 

Fach of the problem solving programs has two modes of 
operation: Test or Batch. Test Mode was conceived to guide 
inexperienced users through each program, allowing them the 
option of running the programs using data prestored in a 
data file named XXXX.TST. For example, while running the 
program DFT.FOR in Test Mode, the user can elect to use the 
prestored input data by entering 'DFT.TST', when prompted 
for the name of the input file. The prestored input data 
and the output which it produces correspond to an example 
problem developed in the header text of each program. The 
inexperienced user can therefore: 

1) Read the header text including the sample problem. 


2) Match the input parameters required by the program to 
Ea@se OCeurring in the input file: XXXX.TST. 


3) Execute the program in Test Mode to produce the 


SOnrEeSDeNnaGIng OutCpUE. In Test Mode, key input 
parameters read from the input file are printed onto 
the monitor screen. This further aids inexperienced 


users by providing the opportunity to detect invalid 
ape) olbUe. » 


The more experienced user can elect to run the programs 
in Batch Mode. In this mode the amount of interface with 
the user 1s minimized. Upon execution in Batch Mode, the 
program assumes that the appropriate input parameters have 
been stored in the default input file: XXXX.IN (e.g., 
DEeeeenht) 2 Figure 2.1 summarizes the events that occur in 


each of the two modes: Batch and Test. 


Select mode: 
Test or Batch. 


Batch 


Read XXXX.IN 


Test 


Prompt user 


fOr Input 
file name. 













Read XXXX.TST 
or the input 


file entered 
by user. 





Print inpue 
parameters 
Onto Monltor- 


>; Perform 
computations. 


Store results am 


files XXXxX.OUT 
and XxXXx DAT. 





Figure 2.1 Program Flow. 
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eee GENERIC STRUCTURE 
Students who use these programs will find some comfort 
in their standardized input and output structures as well as 
the documented Fortran code found in the algorithms 
themselves. With few exceptions, the specific names of 
Variables correspond to their conceptual counterparts found 
in Reference 1. By using a single DSP textbook such as this 
to guide the choice of variable names, some standardization 
can be achieved throughout the programs' header text and 
accompanying source code. For example the following 
variable names, among others, occur in several of the 
programs: N = the number of output delays ina system; L = 
the number of input delays in a system; x() = the input 
sequence of a system; y() = the output sequence of a system, 
etc. A more comprehensive discussion of specific variable 
names occurs in the appendices. The remainder of this 
chapter is dedicated to describing the structure of the ten 
problem solving programs. The plotting program is not 
considered here as this program was designed with the sole 
purpose of reading data from an input file and creating a 
two-dimensional plot of the data. 
in Liput Structure 
All of the programs are file driven, that 1s, each 
program upon execution opens an input file, reads the 
contents of the input file, and performs the computations 


Specified by the input parameters. Because of the variety 


of possible computations permitted by the programs, little 
attempt was made to standardize the specific inputs 
themselves. However, the following general specifications 
are used: 


* All computations are performed using single precision 
arithmetic. 


* All READ statements are format-directed; that is, none 
of the READ statements use list-directed format. An 
extensive discussion of the tradeoffs of these two 
methods is available in Fortran programming literature 
(eo -q4) Ror eoine 

* 'Real' numbers are read using format: PinOeoe Tas 
allows the flexibility of reading real numbers entered 
using either F or E format descriptors. 


* 'Complex' numbers are read as two real numbers, each 
having format: F10.0. 


* Integer values required by the programs are read using 
the I (integer) format descriptor. 


* Character strings required by the programs vary in 
length, however, none of the required string inputs is 
longer than 10 characters. 

* Separate data entries occurring on a given line (record) 
of the input file begin in one of the following columns: 
1. 11,2 20 oe ee Sale 

During the developmental stage of the programs an 
attempt was made to use list-directed inputs. It was 
discovered however, that different Fortran compilers treat 
variable assignments in different ways. For example, while 


some compilers allow integers to be read into variables 


declared as real and vice versa, other compilers will not 


allow this. In order to maintain the portability ofm@en— 
programs; therefore, format-directed inputs are used 
exclusively. 
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Fach of the programs contains instructions in the 
header text describing the options available and the input 
parameters required to run the program. An example problem 
is developed in this text including a brief overview of the 
problem, the input required to achieve the desired results, 
and a listing of the actual output produced by the program. 
This approach allows first-time users to confirm their 
understanding of each program's input requirements) and 
corresponding format. As stated at the beginning of this 
chapter, each sample problem can actually be run py 
executing the program in Test Mode and specifying the input 
filename: XXXX.TST at the prompt. Experienced users can 
elect to run the programs in Batch Mode in which case the 
programs attempt to OPEN and READ the default input file: 
Meee IN (e.g., DFT.IN). Input files for other than test 
runs should be named according to this scheme. 

Ze EGooUram Structure 

Fach program consists of a main program and one or 
more subroutine subprograms. The computations related to 
the functional tasks of each program are performed in 
suitably named subroutines. For example, the program 
DFT.FOR will compute either the Discrete Fourier Transform 
or the Inverse Discrete Fourier Transform of a given input 
sequence depending on the option selected. The program 


consists of a main program and the subroutines DFT, INVDFT, 


vale 


and SAMPLE. The subroutines DFT and INVDFT perform the 
computations suggested by their names and SAMPLE allows the 
user the option of generating an input sequence by providing 
the appropriate Fortran statements in the space provided in 
the body of the subroutine source code. Housekeeping tasks 
are reserved for the main programs. These tasks include, 
but are not limited to, the following: 
* Obtaining the inputs required by the program, either 
from the input file or from the keyboard, as appro- 
Prelace. 


* Conducting rudimentary error checks on the input data. 


* Calling the appropriate subroutines to perform the 
desired computations. 


* Performing data conversions (e.g., Real and Imaginary --> 
Magnitude and Phase). 


* Creating the output files. 

Error checking consists of ensuring that the 
numerical input values are within the range specified in 
each program's header text. This reduces the chance of 
making gross errors such as inputting '30' when a READ 
statement requires format I4 thereby producing an erroneous 
input of 3000! Character string inputs are used by most of 
the programs to distinguish among the available options. 
Error checking involving these inputs is limited to a simple 
string comparison. The error messages produced by any of 


these algorithms are self-explanatory. 
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ce Suet ocructure 


Several purposes are served by the output listings 
of the programs. Among these are the following: 

1) To allow the user to confirm anticipated results by 
comparing the output data generated by the computer 
algorithm to analytical results generated indepen- 
dently. 


2) To place the output data ina format suitable for two- 
dimensional plotting by a program such as PLOTDAT.FOR. 


The former stated purpose requires that the output 
data be in easily readable, tabular form. To accomplish 
this, each program generates an output file named: XXXX.OUT 
Pema FFRLOUT). At the beginning of each tabular output 
file the data read from the input file is listed including 
any input sequence(s). Additionally, any input sequence(s) 
generated by a subroutine such as SAMPLE is also written to 
the output file. Lastly, the output data generated by the 
program is listed. This comprehensive listing of the input 
data as well as the output data allows the user to verify 
that the input values were read correctly from the input 
file. Furthermore, with both the input data as well as the 
output data in one listing, the user can identify the 
problem and check the computational results more readily. 

The two-dimensional plotting program PLOTDAT.FOR 
reads data according to the format: 12.0, 2X, £12.0, with 
the first entry on each line corresponding to the ordinate 
value and the second, the abscissa. The plotting program 


Will produce more than one plot if the appropriate data 
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entries exist in the input file. This flexibility of@eme 
plotting program suggests the possibility of plotting not 
only the output data, but also any input sequence(s). To 
accommodate the capabilities of the plotting program, each 
of the ten problem solving programs creates an output file 
named: XXXX.DAT (e.g., FFT.DAT). For programs that require 
an input sequence(s), both the input sequence(s) as well as 
the output sequence(s) are stored in the output file 
XXXX.DAT. These output files are created in addition to the 
tabular output files and do not require any user interface. 
The general content and format of the programs have 
been discussed in this chapter. The next chapter formally 
develops each program, relating computational goals to 


specific source code. 
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Tita SOnRTWARE DESIGN 


A subsection of this chapter is dedicated to each of the 
ten problem solving programs as well as the plotting program 
PLOTDAT.FOR. Flowcharts that describe the various al- 
gorithms are located in Appendices A through K and listings 
of the Fortran source code for the programs are included as 


Appendix L. 


A. PROBLEM SOLVING PROGRAMS 
i, DIGFREO. FOR 
The program DIGFREQ.FOR is designed to compute the 
frequency response of up to three digital filters. The 
program assumes that the filters are stable and that the 


transfer function of each filter has the form: 





b(0)24 + b(1)zb7t + b(2) zh? + 22. + b(L-1)z + b(L) 

H(z) = ee 
c(0)2N + c(1)2N71 + c(2)2N72 + 12. + C(N-1)z2 + c(N) 
erin) 


The order of the numerator (L) and the order of the 
denominator (N) can be assigned any integer values in the 
range: Oto 128. These parameters are read from the input 
file. The program accepts up to three distinct filter 
equations and will compute the magnitude and phase (degrees) 


hore up tO 101 freguency points for each filter. The 


cs 


frequency (90) range of interest is also specified by the 
user in the input file. 

The program consists of the main program DIGFREQ.FOR 
and the subroutines COEFF and DFRESP. The user can provide 
the filter coefficients [arrays b() and c()] in the ius 
file or can elect to generate them through use of the 
subroutine COEFF. If this latter option is chosen then the 
user must provide the appropriate Fortran statements in the 
space allocated in the subroutine and the program must be 
compiled again before execution. Subroutine DFRESP is 
called by the main program to perform the actual frequency 
response computations. 

This program is an implementation of the psuedocode 
presented in Reference 1. [p. 203] The software flowcharts 
of Appendix A depict the overall program structure. If the 
user has elected to run the program in Batch Mode the — 
default input file DIGFREQ.IN is opened by the program and 
the input parameters are read from it. If Test Mode 1s 
chosen, the input file whose name is specified by the user 
is read. The parameters describing each filter are passed 
to subroutine DFRESP which then computes the magnitude and 
phase of H(z) for each value of z = eJ® in the specified 
range of @. By using nested multiplication to compute the 
frequency response, DFRESP adds a measure of efficiency to 
the program [{Ref. 3]. In the limit (LE = 128, N = 128) me 


evaluation of each polynomial term is performed for i101 
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frequency points, the total number of complex multiplies 
required is over 1.6 million. The corresponding number of 
complex multiplies required using the Nested Multiplication 
technique is about 26 thousand. 

The input parameters read from the input file and 
the corresponding frequency response(s) generated by the 
Pregram are stored in tabular form in the output file 
DIGFREQ.OUT. Additionally, the program writes the frequency 
response data into the file DIGFREQ.DAT. Appropriate labels 
and control parameters accompany the data in DIGFREQ.DAT and 
are written in a form compatible with the plotting program 
moorOAT. FOR. 

Appendix A traces the development of two digital 
filters and compares the anticipated frequency responses 
with the computer generated output. Plots of the output 
data produced by PLOTDAT.FOR are included in the analyses. 

2. ANLGFREQO.FOR 

The program ANLGFREQ.FOR is designed to compute the 
frequency response of continuous-time (analog) systems. The 
design of ANLGFREQ.FOR is very similar to DIGFREQ.FOR. The 
program assumes that the filter is stable and that the 


meamster function has the form: 


b(0)sl + b(1)sh7l + b(2)sh72 + 1... + b(L-1)s + b(L) 

H(s)0 = 
a(0)sN + a(1)sN-1 + a(2)sN-e eee ctON— 1) Sat a (N} 

(3.2) 


7) 


The order of the numerator (L) and the order Of ee 


denominator (N) can be assigned any integer values in the 


range: 0) te, az The parameters L and N, as well as the 
coefficients b(0), ..., bfL) and a(0), ..., ‘aie 
specified in the input file. As with DIGFREQ.FOR, the 


program will accept up to three distinct filter equations 
from the input file, and calculate the magnitude and phase 
for up to 101 frequency points for seachmtil com The user 
must specify the frequency range of interest and can elect 
to have the magnitude expressed in decibels (dB). 

The algorithm consists of the main program ANLG- 
FREQ.FOR and the subroutine AFRESP. The main program 
controls the input and output and calls subroutine AFRESP to 
compute the frequency response for each filter. The 
software flowcharts of Appendix B depict the program 
structure. Subroutine AFRESP is an adaptation of the 
Fortran source code used in subroutine DFRESP [Ref. Il:p. 
624). ANLGFREQ.FOR computes the frequency response of 
filters expressed in the 's domain’. This differs from 
DIGFREQ.FOR which computes the frequency response of filters 
expressed in the '2z2 domain’. Notwithstanding this dif- 
ference, the subroutines DFRESP and AFRESP are identical 
[except that 'jw' (j omega) is substituted for the complex 
variable 'z' in AFRESP] and the efficiencies gained through 


the use of nested multiplication apply for AFRESP as well. 
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The output data produced by ANLGFREQ.FOR are stored 
in two files: ANLGFREQ.OUT and ANLGFREQ.DAT. The former 
output file lists both the input parameters as well as the 
output data for each filter in tabular form. ANLGFREQ. DAT 
is a listing of the output data in a form suitable for 
Plotting. 

Appendix B presents the conceptual development of an 
analog filter and its corresponding frequency response using 
ANLGFREQ.FOR. Plots of the output data generated by 
PLOTDAT.FOR are included in the analysis. 

3. Dh kOR 

A task particularly well suited for the digital 
computer is the computation of the Discrete Fourier 
Transform (DFT) or its inverse, the IDFT. The DFT of a 


sequence N samples long is defined by: 


Naw 
X(k) = = x(n)je7J27nNk/N eas Ou etl pe cue Nill 
n=0 
@e3) 
Its corresponding inverse, the IDFT, is defined by: 
1 N-1 
x(n) =- = X(k)jyeJ2™nk/N | el 
N k=0 
(3.4) 


An alternate method for calculating the IDFT is the 


‘Alternate Inversion Formula!' [Ref. l:p. 406]: 
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i N-1 * -3j2ank/N 
x(n) = ~ ke) , n= 0, 1, ~- 227i 
k=0 

* Denotes complex conjugation. (335) 
Once an algorithm has been developed to compute the DFT 
[Equation (3.3)], the IDFT can be efficiently computedwiew 
Equakion, (325). The steps involved in computing the IDFT 
are summarized below. 


1. Conjugate all N values of the sequence X(k). 


2. Use the DFT algorithm to Compute the DET (eta 
conjugated sequence. 


3. Conjugate the seguence resulting from step 2 and 
divide each value by N. The result is the sequence 
x(a jive 


The program DFT.FOR consists of a main program and 
the subroutines DFT, INVDFT, and SAMPLE. The main program 
reads the required input parameters from the input file and, 
depending on the option specified by the user, computes 
either the DFT or the IDFT of the input sequence by calling 
the appropriate subroutine. The program will accept a 
complex input sequence of up to 256 samples. Since typing a 
long sequence of data into an input file is somewhat 
impractical, the user has the option of generating the input 
sequence by using the subroutine SAMPLE. If this method of 
data generation is chosen, the user must provide the Fortran 
statements required to generate the sequence, in the space 


provided in the subroutine. For example, if the user 
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desires to compute the DFT of the 'real' sequence xin(i) = 
Mesiin/N) for 1 = 0, 1, ..-, N-1 appropriate Fortran 
statements to be written into SAMPLE are: 

do 100 i = 0, N-1 


en) —memp ls. (eos tt* 3 .14159/7N), 0.0) 
100 continue 


A caveat to using this method of data generation is that the 
program must be recompiled before execution. 

The software flowcharts of Appendix C depict the 
overall program structure. As the flowcharts indicate, the 
program computes the DFT of the sequence according to 
Equation (3.3) and computes the IDFT by use of the Alternate 
Inversion Formula. Thus, subroutine INVDFT must call 
Sm@enoutine DFT as part of the IDFT computation. Both 
algorithms are implementations of the psuedocode archi- 
tecture presented in Reference 1 [pp. 411, 412]. This 
design incorporates the efficiencies of nested multiplica- 
tion stated previously. Also included in Appendix C are 
three example problems that demonstrate the capabilities of 
mel. FOR. 

4. PRDGRM.FOR 

As the first of two application programs of the DFT 
algorithm, PRDGRM.FOR provides an introduction to the 
Classical methods of spectrum analysis. The periodogram of 
a sequence is defined, quite simply, as the square of the 
DFT of the sequence divided by N, the number of points [Ref. 


li:ipp. 454-456}. Be@uacwon (3.3)qeverns the computation of 
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the DFT sequence X(kK), and with this task accomplished the 


periodogram can be computed from: 


1 x 
Sxx(k) = - X(K)X(kK) K= Opel, ».<«-ebit 
N 
* Denotes complex conjugation. (36> 


The program PRDGRM.FOR will compute the periodogram 
of a sequence consisting of up to 256 complex values. Mey 
facilitate the generation of long sequences of input data, 
the subroutine SAMPLE has been provided as part of the 
algorithm. Instructions for its use are the same as those 
discussed in the previous’ section. The main program 
performs the input and output tasks required by the program 
and calls subroutine DFT to compute the sequanee X(k). Once 
the array X(k) has been computed, the main program computes 
the sequence Sxx(k) by implementation of Equation (3.6). An 
option available to the user is to have the output sequence 
expressed in decibels, a result commonly referred to as the 
'Log Periodogram'. 

Appendix D includes three example problems that 
demonstrate the utility of PRDGRM.FOR. Included in the 
problem analyses is a discussion of the limitations of the 
periodogram as a means of spectral estimation for finite- 
length sequences. The software flowcharts of the appendix 


outline the program's structure. 


ae 


> SONCeCRE Tron 
The second application program of the DFT algorithm 
fae CONCORDT. FOR. The program uses the DFT technique to 
perform one of the following operations, given two sequences 


of complex input values: 


2. Linear convolution. 
pee Linear correlation. 
me Circular convolution. 
meee circular correlation. 


The program consists of the main program CON- 
CORDT.FOR and the subroutines DFT, INVDFT, SAMPL1, SAMPL2, 
and ZEROPAD. Subroutines DFT and INVDFT compute, respec- 
tively, the DFT and the IDFT of a given sequence. Sub — 
routines SAMPL1 and SAMPL2 allow the user the option of 
generating the input sequences xnl() and xn2() by providing 
the appropriate Fortran statements in the space provided in 
the subroutines. Details of these four subroutines were 
presented previously and therefore will not be repeated 
here. Subroutine ZEROPAD is designed to extend each of the 
input sequences to the length required for computing either 
the linear convolution or the linear correlation using the 
DFT technique. For example, to compute the linear convolu- 
tion of the two input sequences xnl1() and xn2() of length N1 
and N2, respectively, each of the these sequences must be 
padded with enough zeros to extend the sequences to length: 


N3 = Nl + N2 - 1 Samples. To accomplish this, the sequence 
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xnl() must be padded with N3 - Nl zeros and the sequence 
xn2() must be padded with N3 - N2 Zeros. This same 
procedure is required if the linear correlation of the two 
Sequences is to be performed. In either case, subroutine 
ZEROPAD extends the sequences to the required length. The 
program accepts input sequences consisting of up to 128 
complex values. The input sequences xnl() and xn2() are 
assumed to exist in the sample intervals 0 to N1 - 1 and 0O 
to N2 - 1, respectively. 

The technigue of using the DFT algorithm to compute 
the convolution of two sequences is based on the concept 
that time domain convolution corresponds to frequency domain 
multiplication. Given this relationship, the steps required 
to compute the circular convolution of two sequences are 
depicted below. For ease of documentation, the following 


symbols are used: 


* Denotes linear convolution. 
() Denotes circular convolution. 


oo [om | 
; [a] ome 
20 [ore JH 


xno (= xml Oe nee 


Figlre 3.1 Cireullar Genvolutiuon,. 
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Miemee line | AGscorrelation R() can be computed in the 
an ela 


time domain by reversing the order of the sequence xn1() and 
performing circular convolution on the resulting sequences. 
Circular correlation can also be performed using the DFT 


technique by performing the following steps: 


xn1() —>| prr |—> CONJUGATE J 


X ——>| IDFT |—>R() 
Sel 
woot) —>[ oer |} 


R() inert reuldir eonmelauilon Of xXhi() and xn2(). 
xn1lxn2 


SCMine ime lactlar  Colmelaclon. 
Linear convolution is performed by first zero 
padding the sequences to length N3 = N1l + N2 - 1 and then 


performing circular convolution on the extended sequences. 


Thus, the steps required to perform linear convolution are: 


came( ) -———>| ZEROPAD ee 


aie OF ee KTS ( ) 
sn2() —>[ zenoran |—>[ or | 
eae et x XT) 


Figure sees Linear Convolution. 
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Linear correlation is similarly computed by first 
zero padding the sequences and then performing circular 
correlation on the extended sequences. The steps required 


for this computation are: 


xnl()—>| ZEROPAD —>| ver |— CONJUGATE 7 

X —>| IDFT >R() 
xnlxn2 

xn2()—->| ZEROPAD _ 4 ore | 


R() = The linear correlation of xnl() and xn2(). 
xn1lxn2 


Figure 3.4 Linear Correlation. 


A phenomenon encountered when performing the linear 
correlation operation, using the DFT technique, is '‘'wrap- 
around' of the output sequence. This is directly at- 
tributable to the required zero padding of the input 
sequences. While it would be a simple matter of software 
manipulation to prevent the wraparound from appearing in the 
tinal output sequence, it is felt that incorporation of the 
phenomenon 1s relevant to student comprehension of the 
actual computations involved. Example #4 of Appendix E 
demonstrates the wraparound that occurs when the linear 
correlation of two input sequences is computed. 

The procedures described above as well as a 
comprehensive analysis on use of the DFT technique to 


perform convolution and correlation are presented in Chapter 
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7 of Reference 1. CONCORDT.FOR is a Fortran implementation 
of this technique. Flowcharts describing the structure of 
CONCORDT.FOR and subroutine ZEROPAD are included in Appendix 
ES: Also included in this appendix are example problems 
demonstrating the four computations that CONCORDT.FOR is 
capable of performing. 

Gee. Feit FOR 

Similar in purpose to DFT.FOR, FFT.FOR is designed 
to compute the DFT or the IDFT of a complex input sequence 
consisting of up to 256 samples. The advantage FFT.FOR has 
to offer over DFT.FOR is use of the Fast Fourier Transform 
(FFT) technique for computing the DFT. Entire books have 
been dedicated to this subject, most of which include a 
Fortran algorithm for performing the FFT computation. The 
FFT technique used by FFT.FOR is a Radix-2, Decimation In 
Time algorithm adapted from the psuedocode design appearing 
in Reference 1 [pp. 510-512]. Included in this reference is 
a software flowchart of the subroutine REVERSAL which is 
discussed in more detail below. 

The program consists of the main program FFT.FOR and 
the subroutines FFT, REVERSAL, INVFFT, and SAMPLE. The main 
program calls subroutine FFT to perform the actual FFT 
computations. In order to use the Decimation In Time 
algorithm, the input sequence must be reordered according to 
a 'bit-reversal' scheme. This scheme involves changing the 


position that each sample holds in the input sequence by 
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reversing the order of the bits corresponding to the 
positional address of each sample. For example, an 8-sample 
input sequence would have the binary positional addresses: 
OOO .s001 “O10> O21” lO Une TO ia After reversing the 
order of the sequence, the binary addresses of the bit- 
reversed sequence would be: fooo 100 010 110 O01 (bGises 
ele In terms of the Fortran array x(), the 8-element, 
bit-reversed array will contain the original eight values 


but rearranged into the new order: 


QO ORONO NNN 
SW Or ON FPO 


mmm mM Me KM 


Subroutine REVERSAL performs this reordering of the input 
sequence. The main program passes the original input 
sequence to the subroutine in the array xtmp() and the 
subroutine returns the bit-reversed sequence in the array 
mie. 

In addition to the FFT computation, FFT.FOR was 
designed to compute the Inverse Fast Fourier Transform 
(LPEL If used for no other reason, the IFFT serves as a 
check on the FFT computation. For example, the user can 
elect to have the FFT of a sequence computed, and as a check 
on the computed results, run the program again but this time 
using the FFT results as input to the IFFT computation. The 
results of this second run should be the original input 


Zo 


sequence, with some allowance for single-precision roundoff 
error. Subroutine INVFFT performs the IFFT computation ina 
manner identical to the IDFT computation performed by 
subroutine INVDFT. In fact, the flowcharts of the two 
subroutines, except for the names of the variables, are 
meentical. 

Subroutine SAMPLE provides the means to generate the 
input sequence by allowing the user to write the appropriate 
Fortran statements into the space allocated in the sub-. 
routine. The user can elect to use this method of data 
generation or can choose to provide the N complex input 
samples in the input file. 

Because FFT.FOR is a Radix-2 algorithm, the input 
sequence must be of length N = 2™, m = integer. Tes 
apparent limitation to the utility of the FFT is easily 
overcome in practical applications by either: 1) Requiring 
the sampled input sequence to be of the correct length or; 
2) Zero padding the input sequence until it is of length 
N = 2™, This later technique is used in the program CON- 
CORFT.FOR presented in the next section. Zero padding 
should not be used to extend a sequence for the purpose of 
computing a periodogram; however, since the addition .of 
zeros will cause erroneous frequency information to appear 
in the periodogram sequence. 

The input and output sequences are stored in tabular 


form in the file FFT.OUT. Additionally, the sequences are 
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written into the file FFT.DAT in a form suitable for 
plettainge: 

The software flowcharts of Appendix F depict the 
structure of FFT.FOR and the subroutines FFT, INVFFT and 
REVERSAL. Also included in this appendix are two example 
problems that demonstrate both the FFT and the IFFT 
computations. 

Ji CONGORET. FOR 

As an application program for the FFT algorithm, 

CONCORFT.FOR is capable of performing any one of the 


following four operations, given two sequences of complex 


input data: 
1. Linear convolution. 
2. Linear correlation. 
3 Cire ai se onvolmuclonr. 
405 Circular correlation. 


Similar in design to CONCORDT.FOR, this program also 
uses the DFT technique to perform the selected operation. 
Figures 3.1 through 3.4 describe the computations required 
by each of the four operations. In order to take full 
advantage of the efficiencies of the FFT algorithm, however, 


each of the DFT computations required by CONCORFT.FOR is 


accomplished using an FFT. This design invokes’ the 
requirement that the input sequences be of length N = 2m 
(m = integer), since the FFT subroutine used by the program 


isa Radix-2 algorithm. For the linear convoluemer 
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correlation operations this requirement is easily fulfilled 
by zero padding the sequences to a suitable length. For 
example, if the sequences xnl() and xn2() are of length Nl = 
4 and N2 = 3, the linear convolution/correlation operations, 
as computed via the DFT technique, require that the input 
sequences be zero padded to the minimum length: N3 = N1 + 
N2 - 1 = 6. Since N3 = 6 is not an integer power of two, 
CONCORFT.FOR will further extend the sequences to length 
N3 = 23 = 8 by additional zero padding. The extended 
sequences can then be used in the FFT computations. 

While zero padding is intrinsic to CONCORFT.FOR's 
linear convolution/correlation operations, its use in 
performing circular convolution/correlation will lead to 
erroneous) results. For this reason, CONCORFT.FOR will 
perform circular convolution/correlation only if the input 
sequences are of equal length and the lengths are an integer 
power of two. The program is designed to screen the input 
data to ensure that these requirements are met. Suitable 
error messages are printed on the screen and the program's 
execution is halted if they are not met. 

CONCORFT.FOR accepts input sequences consisting of 
up to 128 complex values. The input sequences xnl() and 
xn2() are assumed to exist in the sample intervals 0 to 
Ni - 1 and 0 to N2 - 1, respectively. The main program 
controls the input/output tasks and calls the appropriate 


Subroutines to perform the selected operation. There are 
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six subroutines in all and a brief description Of @jene 


function of each subroutine is as follows: 


1. FFT - Computes the Fast Fourier Transform of a 
sequence. 
2. INVFFT - Computes the Inverse Fast Fourier Transform 


of a sequence. 


3. REVERSAL - Rearranges a sequence into bit-reversed 
order. 


4. ZEROPAD - Extends a sequence by adding an appropriate 
number of zero values. 


5. SAMPL1 - Allows the user the capability of generating 


the sequence xnl()- wy providing the appropriate 
Fortran statements in the space allocated in this 
Subroutine. 


6. SAMPL2 - Allows the user the capability of generating 


the sequence xn2({) by providing the appropriate 
Fortran statements in the space allocated in this 
Subroutine. 


A software flowchart describing the design of 
CONCORFT.FOR is provided in Appendix G. Also included in 
this appendix are four example problems, each of which 
demonstrates one of the operations that CONCORFT.FOR is 
capable of performing. 

oF CONCOR. FOR 

The program CONCOR.FOR is designed to compute either 
the linear convolution or the linear correlation of thewive 
input sequences xnl(n) and xn2(n). The non-zero values of 
the sequence xnl(n) must exist in the range: nsil <n < nel. 


Similarly, the non-zero values of xn2(n) must exist in the 


range ns2 < n < ne2. The constraints on the values nsl, 


a 


mek, ns2, ne2 are: ete oeaensoil senel = 128 ance 126, < 
Meee: Nne2 s 128. 

Unlike the frequency domain techniques used to 
Pertorm convolution and correlation in CONCORDT.FOR and 
CONCORFT.FOR, all computations performed by this algorithm 
are done in the time domain. For linear convolution, 
Equation (3.7) applies. 

oO 
Minka jige— xl 1 Gm). *xm2 (n=) 
m=—0o 
(3.7) 
For linear correlation, as it is performed by this al- 
Soemithm, Equation (3.8) applies. 
oO 
R(p) = 2 xnl(m) *xn2(ptm) 
petals I 2 m=—00 
(3.8) 

The program consists of the main program CONCOR.FOR 
and the subroutines SAMPL1, SAMPL2, CONVOL, and CORREL. 
Subroutines SAMPL1 and SAMPL2 allow the user to generate 
either of the input sequences by providing the appropriate 
Fortran statements in the space provided in the subroutines. 
Subroutine CONVOL is called by the main program to compute 
the linear convolution of the two sequences, according to 
Equation (3.7). The computations are necessarily limited to 
include only the non-zero ranges of the two input sequences. 
Subroutine CORREL is called by the main program to compute 


the linear correlation of the two input sequences, according 


eer Equation (3.8). Similar to CONVOL, the computation is 
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limited to the non-zero ranges of the input sequences. An 
alternate method of computing the linear correlation would 
be to reverse the sequence of values stored in xnl1(n) and 
then to compute the linear convolution of the resulting 
sequences (Ref. 1l:p. 432]. This method is not used in this 
algorithm. 

Appendix H contains flowcharts that describe the 
main program, as well as the subroutines CONVOL and CORREL. 
The appendix also includes example problems that demonstrate 
the performance of CONCOR.FOR. 

ons DIPPER Oman er 

The program DIFFEQ.FOR is designed to compute the 
iterative solution to a linear, time-invariant (LTI) 
difference equation. The program will compute the solution 


for up to four distinct equations, each on meme tern: 


y(ns) = a(1l)*y(ns-1) + a(2)*y(ms-2) + ... + a(N) *y (nso 
b(0)*x(ns) + b(1)*x(ns-1) + ... + b(L)*x(ns=me 
(329) 


The solution to each equation is computed for values 
of ns in the range 0 < ns < nstop, where nstop can be 
assigned any integer value in the range 0 < nstop < 300. 
The input sequence x(ns) is assumed to be zero for values of 
ns less than zero. The parameter L corresponds to the 
maximum number of delays in the input sequence and can be 
assigned any integer value in the range 0 < L <¢ 128. 


Similarly, the parameter N corresponds to the maximum number 
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of delays in the output sequence and can be assigned any 
integer value in the range 0O<N <¢ 128. 

To run the program, the user must provide the 
parameters N, L and nstop, as well as the coefficients 
eee. .-.a(N), and b(0)...b(L). For values of N > 0, the user 
must also provide the initial condition sequence y(-N)... 
pa) . The user has the option of providing the values of 
X(ns) in the input file or generating the sequence through 
use of the subroutine XGEN. All of the aforementioned 
inputs must be provided for each difference equation to be 
solved. 

The program consists of the main program DIFFEQ.FOR 
and the subroutines DIFFEQ and XGEN. Flowcharts of the main 
program and the subroutine DIFFEQ are provided in Appendix 
iE The program is a computer implementation of the 
psuedocode algorithms presented in Reference 1 [pp. 84-86]. 
Also presented in Appendix I are two example problems that 
demonstrate the capabilities of DIFFEQ.FOR. 

mos SLATEO. FOR 

The final problem solving program is designed to 
compute the iterative solution to a set of linear, time 
_ invariant state equations. The state and output equations 
are assumed to be of the form: 


v(nst+1) = Av(ns) + Bx(ns) 
(ee 1.0) 


y(ns) = Cv(ns) + Dx(ns) 
(ey. 11) 


S12 


where: 

* .x() is the M Seleonpubyecerorm, 

* v() is the N x 1 state vector, 

* y() is the Q x 1 output vector, 

* A is an N X N matrix of real constants, 

* Bis an N X M matrix of real constants, 

* Cis anQ x WN matrix of real constants and, 

* D isS.an Ox M matrixsot scealeconstanec. 

The program will compute the solution to the system 

of equations for values of ns in the range 0O < ns € nstop. 


The limits on the parameters M, N, Q, and nstop are: 


O<Me«c 4 

Gs N= he 

Os Qs 4 

0 S NSeop ses9 


(gael 22) 
These parameters as well as the values for the matrices A, 
B, C, D, and the vector comprising the initial condition of 
the system (vector v() at ns = 0) must be provided by the 
user in the input file. The user can elect to provide 
values for the input vector x(ns) in the input file, or, 
alternatively, may choose to generate these values by 
writing the appropriate Fortran statements into subroutine 


XGEN. The output of the program is the time-history of the 


vector y(ns); however, the program stores all values of the 
vectors x(ns), v(ns), and y(ns) in the tabular output file 
oMLeO OUT. 
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The program consists of the main program STATEQ.FOR 
and the subroutines ITRATE and XGEN. The algorithm is a 
Fortran implementation of a design adapted from Reference 1 
weer 762-765). The main program reads the input parameters 
from the input file and calls subroutine ITRATE to compute 
the solution to the state equations. Subroutine XGEN exists 
for the sole purpose of allowing the user the option of 
generating the input sequence(s) internally, rather than 
providing the values in the input file. Appendix J includes 
the software flowcharts of the main program and the 
subroutine ITRATE. Also included in this appendix are two 
example problems that demonstrate the capabilities of 


plAlTEO.FOR. 


B. PLOTTING PROGRAM 
ilies PLOTDAT. FOR 
The sole purpose of the program PLOTDAT.FOR is to 
create 2-dimensional (2-D) graphs of values read from an 
input file. The program prompts the user for the name of 
the input file and will create up to nine 2-D plots, each 
consisting of up to 999 data points. Each plot requires 
three labels: 
1) the title of the plot, 
2) the x-axis label and, 
3) the y-axis label. 
For plots that consist of more than 25 data points, the 
program displays the output by connecting the points through 
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use of a linear interpolation (straight-line) scheme. Plots 
of 25 points or less consist of the symbol ‘+' atiyeae 
tabulated points only. The number of data points comprising 
a given plot, and the plot labels comprise the header 
information required for each plot. In addition to these 
parameters, the ordinate and abscissa values for each point 
to be plotted must be included in the input file. PLOT- 
DAT.FOR reads these values according to the format: fi 20% 
2x0) ot 12 Or The first entry corresponds to the ordinate 
value and the second entry, the abscissa value. The F- 
format descriptor was chosen because its use permits values 
written using either the E or F-format descriptors to be 
read from the file. 

The program consists of the main program PLOTDAT.FOR 
and the subroutines SCALE and GRIDD. The main program reads 
the input file and creates the plots. Subroutine SCALE is 
called by the main program to scale the input values so as 
to optimize the clarity of the plots. Subroutine GRIDD will 
overlay a dashed-line grid onto the plot if the user elects 
to have this done. PLOTDAT.FOR requires a Color Graphics 
Adapter (CGA) card to display the plots on the monitor 
screen. In addition, the user can elect to have a printed 
hardcopy of each plot created. However, to facilitate 
printing of the graphs, the system in use must include a dot 
matrix printer. The program will not drive plotters of eau 


types. If the system has an Extended Graphics Adapter (EGA) 
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card, rather than the specified CGA card, hardcopy printouts 
of the graphs cannot be created by the program directly. 

The plots included in Appendices A-J were created 
using PLOTDAT.FOR. Appendix K is a software flowchart 
describing the structure of PLOTDAT.FOR and the subroutines 


SCALE and GRIDD. 
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iy Conclusions and Recommendations 


As the final phase of this project, the eleven programs 
included in the package were distributed on a voluntary 
basis to students enrolled in digital signal processing 
courses. As part of the course requirements, the students 
had to solve a variety of signal processing problems 
representative of the type that the programs were designed 
fete Throughout this software evaluation phase, the 
students provided feedback as to the utility of the 
programs. While a majority of this feedback was positive, 
three areas of concern warrant attention in this report. 


1. The graphics capability of PLOTDAT.FOR is limited to 
machines with CGA/EGA graphics cards. 


2. In order to get the most use out of the ten problem 
solving programs, the user must have access to a 
Fortran compiler capable of compiling the programs as 


written. 

3. Because the programs are file-driven, the user must 
carefully read the header text of each program in 
order to execute the programs successfully. Although 


the example problems in the header text and the 
corresponding sample input files seem to alleviate 


some of the common formatting errors, new users 
experienced some displeasure with the format require- 
ments. 


The first area of concern, although valid, is consistent 
with the advertised capabilities of PLOTDAT.FOR. As 
graphics software becomes more advanced, PLOTDAT.FOR should 


be updated to incorporate any changes that increase the 
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Pereability of the program. A caveat to this, however, 1s 
the obvious temptation to use sophisticated software 
designed for more capable machines at the expense of its 
compatibility with less capable ones. The primary goal of 
the plotting program is portability among the broadest 
possible span of target users. 

The second area of concern is also somewhat warranted. 
The programs were optimally designed for use on a machine 
equipped with a suitable Fortran compiler. The presence of 
a compiler allows the user to add source code to the 
programs, an option particularly useful in generating long 
sequences of input data. To this end, however, any high 
level language can be used to create the input files, as 
long as the required data can be stored in a form compatible 
with the programs. In brief, any Fortran compiler would be 
Suitable for generating the input data thus eliminating the 
need for a specific compiler. 

Lastly, the dissatisfaction among the students over the 
fFile-driven versus menu-driven design of the programs may 
warrant a future design change. The principle concern was 
the rather stringent input formats required by the programs. 
As the students became more experienced with the programs, 
however, these problems subsided somewhat. Nevertheless, 
the programs' input sections can be restructured to 
incorporate the features of both the menu and the file- 


driven designs. As envisioned, in menu-driven mode the 
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programs would prompt the user for each input value, storing 
the values in an input file for future use. This mode, 
despite its time consuming mechanics, would be attractive to 
first-time users who could use the input files created by 
the programs as a guide for subsequent runs. Experienced 
users would create the required input files and run the 
programs in the file-driven mode. This mode is already 
incorporated in the programs as they exist. The redesign of 
the programs; therefore, would only require incorporation of 
a menu-driven mode. Such a design change is fully within 
the capabilities of the Fortran compiler used to create 


these programs. 
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APPENDIX A 


Two digital filter designs are developed in this section to 


demonstrate the performance of the program DIGFREQ.FOR. 


An analysis of the designs includes a listing of the input 
required to execute the program and the corresponding output 


that is produced. The plotting program PLOTDAT.FOR was 


used to plot the output data and hard copies of these plots 


are also included. The software flowchart of the program is 


included as the last pages of this appendix. 
The variable names listed below are used in the Fortran 


source code of DIGFREQ.FOR and in the corresponding 


flowcharts. 


numsys - The integer value that specifies the number of 
distinct filter equations whose parameters occur 
in the input file. 
L - The integer value that specifies the order of 
the numerator polynomial. 
N - The integer value that specifies the order of 
the denominator polynomial. 
dsorce - The character string 'F' or 'S' denoting whether 
the system coefficients are to be read from the 
input file (F) or generated (S) through use of 
the subroutine COEFF. 
thetaO - The starting value of 9 (rad). 
numpts - The integer value that specifies the desired 
number of frequency points. 


Mocal.- the Weharacter string '"STD' or 'LOG' that 
Specifies whether standard magnitude (STD) or 
magnitude expressed in decibels (LOG) is to be 


computed. 


b() The array containing the numerator coefficients. 
Ei) The array containing the denominator coeffi- 
cients. 
mh () The array containing the magnitude values of 
the computed frequency response. 
ph () The array containing the phase values (degrees) 


of the computed frequency response. 
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Example #1 


This example is identical to the sample problem found in 
the header text of the program. The system is a first order 
low-pass filter with a pole at z = 0.5, anda zero at z = 0.0. 


The filter transfer function, in the formof Equation (3.1), 1s: 


2) (A.1) 


The goal is to calculate the frequency response of the filter 
for frequencies in the range: 0O < 90 € 3.14159 (rad). The 
listings that follow include the input file DIGFRE@@acE 
required to produce 11 output points and the tabular output 
file DIGFREQ.OUT. Also included are plots of the output for 
101 frequency points. An analysis of the data confirms the 


low-pass nature of the filter. 


DIGEREOmmow 
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DIGFREO.OUT 


INPUT DATA FOR SYSTEM # 1 


meer DATA SOURCEFILE: DIGFREQ.TST 


DEGREE OF NUMERATOR = iL, 

DEGREE OF DENOMINATOR = 1 

dsorce = F 

NUMBER OF FREQUENCY POINTS = 11 MAGNITUDE OPTION = STD 
STARTING VALUE OF THETA = .O00000E+00 

INCREMENT OF THETA =~ .314159E+00 


THE NUMERATOR COEFFICIENTS b(0),b(1)...b(L) ARE: 


mOOOE+O1 +s OO0O00E+00 


THE DENOMINATOR COEFFICIENTS c(0),c(1)...c(N) ARE: 


END OF RUNS YSTEM 7 1 
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.1000E+01 -.5000E+00 
OUTPUT DATA FOR SYSTEM # 1 
THETA MAGNITUDE PHASE 
(RADIANS) (DEGREES) 
. OO0O000E+00 . 200000E+01 . OO0000E+00 
.314159E+00 .182897E+01 .164149E+02 
.628318E+00 .150588E+01 .262677E+02 
.942477E+00 .122886E+01 .298071E+02 
.125664E+01 .103088E+01 .293546E+02 
.157080E+01 .894428E+00 .265651E+02 
.188495E+01 .800894E+00 .223862E+02 
Poco .737654E+00 .173608E+02 
.251327E+01 .696900E+00 .118186E+02 
fee 7 43hro1 .674038E+00 .597793E+01 
.314159E+01 .666667E+00 .484184E-04 
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Example #1. 
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Open input file. 
read numsys. 


>|For n = 1, numsys. 


Read L, N, dasorce, yscal. 
Read dlthta, thetaO, numpts. 







>|Call COEFF to generate 
arrays b() and c(). 








Read b(). 
Read c(). 
< 
Conduct error checks. 


Write input data into 
file: DIGFREQ.OUT. 








TES 
Mode ? >/ Write input data 
onto monitor screen. 
BATCH 
Call dfresp to calculate 
frequency response. 


© 


Write results to files 
DIGFREQ.DAT and DIGFREQ.OUT. 





Figure A.3  DIGFREQ.FOR Software Flowchart. 
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Generate arrays b() and c() 


according to user provided 
algorithm. 





Figure A.4 COEFF Subroutine Flowchart. 


49 


oS 


For np = 1, numpts.|< 
thetav() = thetadO + (np-1) *dlthta 





mh(np) = magnitude of h 
ph(np) = phase (degrees) of h 


y 
<a mh(np) = 20*log(mh (np) ) 





Figure A.5 DFRESP Subroutine Flowchart. 
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Appendix B 


A fifth-order, low-pass filter is used in this appendix 
to demonstrate the performance of the program ANLGFREQ.FOR. 
The filter transfer function is in the form of Equation 
feornc). The analysis that follows compares the theoretical 
frequency design specifications of the filter to the 
frequency response computations produced by the program. 
The software flowcharts of the program ANLGFREQ.FOR and the 
Subroutine AFRESP are included as the last pages of this 
appendix. 

The variable names listed below are used in the Fortran 
source code of the program and in the corresponding 
flowcharts. 


numsys - The integer value that specifies the number of 
distinct filter equations whose parameters 
SECUr In Ehiewipoit tide. 
L - The integer value that specifies the order of 
the numerator polynomial. 
N - The integer value that specifies the order of 
the denominator polynomial. 
omegaO - The starting value of w (rad/s) for which the 
frequency response is to be calculated. 
dlomga - The increment of w (rad/s). 
numpts - The integer value that specifies the desired 
number of frequency points. 
yscal - The character string 'STD' or 'LOG' that 
Specifies whether standard magnitude (STD) or 
magnitude expressed in decibels (LOG) is to be 


computed. 
b() - The array containing the numerator coeffi- 
cients. 
a() - The array containing the denominator coeffi- 
cients. 
mh() - The array containing the computed magnitude 
value for each frequency point. 
ph() - The array containing the computed phase value 


(degrees) for each frequency point. 


ad 


Example #1 


A fifth-order Chebyshev Low-Pass Filter has the transfer 


func. 1.oOMn- 


62268.8 


H(s) = ———— A A 


-_ 


s> + 10.605s4 + 337.532 +2342.2552 + 23236.9s + 62268.8 


(B.2) 
The filter was designed to have a ripple passband edge 
frequency of w = 15.0 (rad/s) and a maximum ripple of 2 dB 
(Ref. l:pp. 630-637]. The input file ANLGFREQ.IN listed 
below provides the inputs necessary for ANLGFREQ.FOR to 
compute the magnitude (dB) and phase (Deg) response of this 
filter across the frequency range: 0 < w < 20 (rad/s). 

As can be seen from both the tabular output and the 
accompanying plots the filter specifications have been met. 
The magnitude of 0 db at frequency w = 0 is characteristic 
of this type of normalized low-pass filter. The edge of the 
ripple passband has a magnitude of -2 daB at w = 15 (rad/s) 


and the 2 dB ripple is not exceeded within the ripple 


passband. 
ANLGFREQ.IN 
il 
000 005 O21 LOG 
Eo 0.0 
62268.8 
IO 10.605 ~3375E03 2342-25 2520.9 62268.8 


ae 


ANLGFREO. OUT 


INPUT DATA FOR SYSTEM # 1 


PeuT DATA SOURCEFILE: ANLGFREQ.IN 
DEGREE OF NUMERATOR = 0 

DEGREE OF DENOMINATOR = 5 

meMeeER OF FREQUENCY POINTS = 21 
STARTING VALUE OF OMEGA = .0O00000E+00 
myekEMENT OF OMEGA = .100000E+01 


MAGNITUDE OPTION = LOG 


THE NUMERATOR COEFFICIENTS b(0),b(1)...b(L) ARE: 


.6227E+05 
THE DENOMINATOR COEFFICIENTS a(0),a(1)...a(N) ARE: 
.1000E+01 . 1060E+02 .3375E+03 .2342E+04 
.2324E+05 .6227E+05 
OUTPUT DATA FOR SYSTEM # 1 
OMEGA MAGNITUDE (dB) PHASE 
(rad/s) (DEGREES) 

. OO0000E+00 . OO0000E+00 . OOO000E+00 
.100000E+01 .260284E+00 .209105E+02 
.200000E+01 .868081E+00 .395377E+02 
.300000E+01 .149418E+01 .553515E+02 
.400000E+01 .189199E+01 .691887E+02 
.500000E+01 .193554E+01 .823632E+02 
.600000E+01 .158803E+01 .963804E+02 
.700000E+01 .917171E+00 .112999E+03 
.800000E+01 .196446E+00 .133940E+03 
.900000E+01 .423856E-01 .159062E+03 
. 100000E+02 .519360E+00 .175548E+03 
.110000E+02 .143810E+01 .153702E+03 
.120000E+02 .198221E+01 .134785E+03 
.130000E+02 .158172E+01 Pilon on Tos 
.140000E+02 .216956E+00 .804525E+02 
.150000E+02 .201998E+01 .233437E+02 
. 160000E+02 .831394E+01 .135395E+02 
.170000E+02 .140297E+02 .300361E+02 
. 180000E+02 Ple7 2H oe .391769E+02 
.190000E+02 .226985E+02 .451868E+02 
. 200000E+02 .261739E+02 .495617E+02 


~---------------- END OF RUN, SYSTEM #1 ------------------ 
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Open input file. 


Read numsys. 


>|For n = 1, numsys 


Read L, N, numpts, yscal. 
Read dlomga, omegad. 
ReaGarei) 56 (). 













Conduct error checks. 
Write input data to ANLGFREQ.OUT 


sua IG 







Write input data 
onto monitor screen 


BATCH 


< 
Call AFRESP to calculate 
frequency response. 
a 


8) 


Write results. townpmles 
ANLGFREQ.OUT and ANLGFREOQ. DAT. 


Figure B.3 ANLGFREQ.FOR Software Flowchart. 
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omegav() = omegaO + (np-1) *dlomga 





eapror k = 1, N. 


mh(np) = magnitude of h 
ph(np) = phase (degrees) of h 


Y 
fect = 1100 > >|mh(np) = 20*log(mh(np) ) 





Figure B.4 AFRESP Subroutine Flowchart. 
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Appendix C 


As a practical exercise to demonstrate the performance 
of DFT.FOR, two sample sequences were generated and the 
program DFT.FOR was used to compute either the DFT or the 
IDFT of the sequences. Contained in this appendix is a 
brief analysis of the chosen examples including listings of 
the output produced by the program. The software flowcharts 
describing DFT.FOR and the subroutines DFT, INVDFT, and 
SAMPLE are also included. 

The variable names listed below are used in the Fortran 
source code of the program and in the corresponding 
flowcharts. 


N - The integer value that specifies the number of 
complex samples contained in the input sequence 
Scan aitelee 
dsorce - The character string 'F' or °S' that spegwmear 
whether the input data is to be read from the 
input file (F) or generated (S) through use of 
the subroutine SAMPLE. 
option - The character string ‘'DFT' or ‘ENV ene 
specifies the computation to be performed. 
Xin() - The complex array containing the N samples of 
the input sequence. A sequence consisting of 
only ‘real' numbers is stored as values having 
an 'imaginary' part of O90n 


xout() - The complex array containing the N_ output 
values. 
xmag() - The array containing the N values of the output 
magnitude. 
xph() - The array containing the N values of the output 


phase (Degrees). 
wm - The complex value: wm = e7J27K/N, 
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Example #1 


For the first example problem a unit ramp sequence 
consisting of 5 values was input to DFT.FOR. The goal was 
to compute the DFT of the sequence. This example problem is 
also developed in the header text of DFT.FOR and can be run 
by the user by selecting Test Mode and entering 'DFT.TST' 
when prompted for the name of the input file. The listings 
that follow include the input file DFT.TST and the tabular 


eee put file DFT.OUT. 


Prieto. 


Der. 


mWNM rR O © 
O' Ore 20) 
©O OO OOo YF 
OO, OOO 


Se 


eee Cel 


INPUT DATA SOCURCEF (UR) bebo rr 


VALUE OF N = 5 dsorce = F option = DFT 
INPUT DATA 
SAMPLE # REAL IMAGINARY 
QO - OOOO0O00E+00 -OOO000E+00 
al - LOOOOOE+01 - OOO000E+00 
2; -» 200000E+01 -0OOO0000E+00 
3 - 300000E+01 -OO0000GET+OC 
4 -400000E+01 -»OOO000E+00 
OUTPUT DATA 
SAMPLE # REAL IMAGINARY MAGNITUDE PHASE 
(DEGREES ) 
0 - 100000E+02 -000000E+00 . 100000E+02 .000000E+00 
i -.250000E+01 ~344096E+01 »425325E+01 .126000E+03 
2 -.250000E+01 -812300E+00 -262866E+01 -162000E+03 
3 -.250000E+01 ~.812299E+00 .262866E+01 -.162000E+03 
4 ~.250000E+01 -.344096E+01 .425326E+01 ~.126000E+03 
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Example #2 


AS an extension to the first example problem and to 
demonstrate the IDFT option, the DFT results of the first 
problem were input to the program and the IDFT was computed. 
AS one would expect, the original unit ramp sequence was 
generated confirming the ability of the program to compute 
elther the DFT or its inverse, the IDFT. Numerical roundoff 
corresponding to the single precision accuracy of DFT.FOR 
accounts for the slight deviation between the original unit 


ramp sequence and the results produced by this example. 


Dela 


005 le INV 
-LOO000EO2 0.0 

Mm OOUEO] .344096E01 
meoO0RO0L .812300 
ZeOORO] —.812299 
maoVOEO1L -3.44096 
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DEiOUT 


INPUT DATA, SOURCERUEE 2am. nN 
VALUE OF N = 5 dsorce = F option = INV 


INPUT DATA 


SAMPLE # REAL IMAGINARY 
0 - LOOODOE+O2 - OOOO00E+00 
i =. 250000 FO -344096E+01 
2 =.2 7000050 1 -812300E+00 
3 =.2o00CCE.OL =. 6122995500 
4 =, 2900008 FOL -.344096E+01 


OUTPUT DATA 


SAMPLE # REAL IMAGINARY MAGNITUDE PHASE 
(DEGREES ) 
0 - OOOO0Q00E+00 -238419E-06 -238419E-06 - JOODD00E+02 
- °999998E+00 Se Oy oe Ole -999998E+00 ~.120422E~-04 
2 - Z00000E+01 ~- 136523E~-06 - 200000E+01 ~-391LLOSE-05 
3 - 300000E+01 ~-358854E-06 e 300000E+01 e685361E-05 
4 - 400000E+01 -298563E-06 - 400000E+01 -427659E-05 
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Open input file. 
Read N, dsorce, option. 


Conduct error checks. 








>{Call SAMPLE to 
generate input: xin(). 





>/Write input data 
onto monitor screen. 





Write input data to files 
DET, OUT and DFT. DAT. 







> 





Call INVDFET to 
compute the IDFT. 
DFT 


Call DFT to compute the DFT. 
oa 


Convert results from real and 
imaginary to magnitude and phase. 
Write results to files 
DET-.OUT and DFT.DAT. 








Figure C.1 DFT.FOR Software Flowchart. 
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Generate xin() according to 


user provided algorithm. 





Figure C.2 SAMPLE Subroutine Flowchart. 
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Call DFT to compute the DFT. 






For 1 = : 
eae each xout (1). 


wo 


Figure C.3 INVDFT Subroutine Flowchart. 
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x 
> 
N 


>| Ota Oe 
= xin(N-1) 


xout(0) = xin(0). 


xout (k) xin(N-1 


>|For 1 = N-2, 0, -1. 


xout(k) = xout(k)*wm + xin(1) 


Figure C.4 DFT Subroutine Flow Chart. 
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Appendix D 


Three example problems are developed in this appendix to 
demonstrate the program PRDGRM.FOR. Example #1 1S a 
demonstration of the program using a short input sequence. 
A listing of both the input sequence and the output sequence 
are included in the analysis. Examples #2 and 3 require 
long sequences of data and therefore only plots of the input 
and output sequences are included. The software flowchart 
of PRDGRM.FOR is included as the last page of this appendix. 
Since the flowcharts of the subroutines SAMPLE and DFT were 
presented in Appendix cC, they are not repeated in this 
appendix. 

The variable names listed below are used in the Fortran 
source code of PRDGRM.FOR and in the corresponding flow- 
eliarts. 

N - The integer value that specifies the number of 
complex samples contained in the array xn(). 
dsorce - The character string 'F' or 'S' that specifies 
whether the input data is to be read from the 
input file (F) or generated (S) through use of 
the subroutine SAMPLE. 
yscal - The character string 'STD' or ‘'LOG' that 


specifies whether the output sequence is to be 
expressed as standard (STD) or decibel (LOG) 


magnitude. 
xn() - The complex array containing the N input 
values. A sequence consisting of only real 


numbers is stored as values having an imaginary 
evigmemou 0.0, 


xk() - The complex array containing the DFT sequence 
SOErRespOnOingd) Commie hee., xiX() = DEFT[xn() ]. 

Sxx() - The array containing the N values of the 
periodogram sequence. This array contains the 


output sequence of the program. 
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Example #1 


Because PRDGRM.FOR uses the DFT algorithm as part of 
the periodogram computation, a simple demonstration of the 
program's accuracy is to compare the results of PRDGRM.FOR 
to the results of DFT.FOR using the same input sequence for 
both programs. The sequence chosen was the five samples of 
the unit ramp. The listings that follow include the input file 
PRDGRM.TST required to run this problem, as well as the 
tabular output file PRDGRM.OUT containing the computed 
results. The DFT results were presented in Appendix C. 

By comparing the output sequences of the two programs it 
is easy to see the relationship between the DFT and the 
periodogram as described by Equation (3.6). 

This example problem also appears in the header text of 
PRDGRM. FOR. The user can run this problem by selecting 


Test Mode and entering 'PRDGRM.TST' as the input file name. 


PREECE hom 


> we 


mWM Fe O O 
OOOO Oo Ul 
@S-Or@ 4 
QO Qa a 
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PRDGRM. OUT 


INPUT DATA SOURCEFILE: PRDGRM.TST 


VALUE OF N = 5 dsorce = F MAGNITUDE OPTION = STD 
INPUT DATA 
xn () 
n REAL IMAGINARY 
O 7 VOO0R TCO - OOO0CE+00 
i rLOOC O01 - OOOO0E+00 
2 ae OOOO ,0CO0E;00 
3 moO OK+TOL - OOOO0E+00 
4 -4000E+01 - OOO0E+00 


COE Ue Are 


Sex (Kk) 
0 O00 2 
oO Oboe b 
Sib e2bt oO | 
weoo2 ft OL 
oo Onli Oek 


BWM rF Oo XK 


og 


Example Z 


A low-pass filter presented earlier had the transfer 


FUNC ei: 


(D.1) 
The impulse response of this filter can be computed 


iteratively by the corresponding difference equation: 


V(r) =X (a) : n= 0, 1, ..2iee 
where: x(n) = 1.0 atne= 0 
0.0 otherwise 
Vite hi =1020 


GD. 25 

The performance of PRDGRM.FOR can be evaluated by 
computing the periodogram of the resulting impulse response 
and comparing the results to the frequency response of the 
filter. The frequency response was computed previously 
using DIGFREQ.FOR and a plot of the frequency response 
appears ir. Appendix A. 

The subroutine SAMPLE was used to generate 200 samples 
of the filter's impulse response. Included on the page that 
follows is a plot of the log periodogram sequence. The 
results produced by PRDGRM.FOR as well as those produced by 
DIGFREQ.FOR confirm the low-pass nature of the filter. The 
disparity of the plots can be attributed somewhat to the 
implied rectangular windowing of a finite-length sequence 
used aS an input to the periodogram algorithm. Because of 
this windowing effect, the use of the periodogram as a 


Spectral estimation technique is somewhat limited. 
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Periodogram of a low-pass filter's impulse 


Fagure D.1 


response - Example #2. 


ous 


Example 3 


As a final demonstration of PRDGRM.FOR, the subroutine 
SAMPLE was used to generate the input sequence according to 
the equation: 


X(n) = 2.0¢CeS (ZmnS007 5000) 
(Des 


The sequence consists of N = 200 samples. Plots of the 
input sequence as well as the output sequence are included 
on the pages that follow. For this sequence, the frequency 
of the continuous-time signal is f = 500 Hz and the sampling 
frequency is fg = 5000 Hz. Since 5000 HZ corresponds je=a me 
27m rad, the periodogram should peak at © = m/5 rad, the 
digital frequency that corresponds to f = 500 Hz. To 
demonstrate the ability of the program to convert the output 
to decibels, the input parameter yscal was assigned the 
value: ‘LOGY: 

An analysis of the plotted output confirms the an- 
ticipated results. The signal, consisting of apm 
Sinusoid, has a digital frequency of 7/5 rad when sampled 
at 5000 Hz. The plot of the periodogram remains below O dB 


for all frequencies except © = 7/5 rad. 
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= 2cos(2mn500/5000) - 


Example #3. 


Input sequence x(n) 


Figure D.2 
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Periodogram of a sinusoid - Example #3. 


Figure D.3 
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Open input file. 


Read N, dsorce, yscal. 


x 
<iiorce = 155 > >|Call SAMPLE to 
generate input: xin(). 
N 


Read xn() from file. 
< 


TES 
> 


BATCH 


< 
Write input data to files 
PRDGRM.OUT and PRDGRM.DAT. 


Call DFT to compute the DFT: 
ck () = DEFT (xn() ]. 


For k = Q, New-l.|{< 







Write input data 
onto monitor screen. 













Sxx() = 10*1log10(Sxx() ) 


Write results to files 
PRDGRM.OUT and PRDGRM. DAT. 


END 


Figure D.4 PRDGRM.FOR Software Flowchart. 


eho. 


Appendix E 


As a demonstration of the capabilities of CONCORDT.FOR 
this appendix presents four example problems. Each example 
problem demonstrates one of the following computations: 
Circular convolueion. 

Linear convolution. 


Circular ceoreelacion. 
Linear cobLrelacitoen- 


dehy |e 


A brief analysis of the output generated by the program 
1s included for each problem. The examples that use short 
data sequences include tabular listings of the input and 
output values. The examples that require longer sequences 
include plots of the input and output sequences as generated 
by PLOTDAT.FOR. The last pages of this appendix are the 
flowcharts of CONCORDT.FOR and the subroutine ZEROPAD. 
Flowcharts of subroutines DFT, INVDFT, SAMPL1 and SAMPL2 are 
not included in this appendix as they have been presented 
previously. 

The variable names listed below are used in the Fortran 


source code of CONCORDT.FOR and in the corresponding 


flowcharts. 
Nl - The integer value that specifies the number of 
complex samples contained in the input sequence 
Poin es 


N2 - The integer value that specifies the number of 
complex samples contained in the input sequence 
x2) 

dsrcel - The character string 'F' or 'S"* that specie. 
whether the input sequence xnl1() is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPL1. 
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asrce2 


option 


xnl1() 
mK 1 () 


xn2() 
po 2 ( ) 


pers) 
xk S () 


thes characeor=serma 'F' or 'S' that specifies 
whether the input sequence xn2() is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPL2. 
The character string that specifies the 
operation to be performed as follows: 


'LCON' = Linear convolution, 
'LCOR' = Linear correlation, 
TeCONee- iC ilGeulatm COonvVolutlon:, 


neCULe = —=ecrrcular correlation: 
The first complex input sequence of length Nl. 
The sequence containing the DFT values of the 
array xa) ()., seem cle lt \oe= DET ( xn 1.) 
The second complex input sequence of length N2. 
The sequence containing the DFT values of the 
aay xis <)>, emma) — DET ( xn2() }. 
The complex output sequence. 
The sequence containing the DFT values of the 
ai raverans (je 1. Coy Xie3 () =o DET([xn3() ]. 


ey 


Example #1 


The circular convolution of the two sequences: xnl1() = 
(1 3 5 7} and xn2() =[{2 4 1 8 }] is demonstrated in 
this example. The listings that follow include the input 
file CONCORDT.IN and the tabular output file CONCORDT.OUT. 
The result of the circular convolution of these two 
sequences can be easily verified by manually performing the 
calculations. Manual calculation results in the sequence 
xn3() = { 59 57 #79 45 j. ‘This compares favorably with 


the computer generated output sequence. 


CONCORDT. IN 


004 le 

004 F CCON 
ao U0 

ae O) eo 

Dad Ong 

70 020 

o70 OO 

4.0 0.0 

Sn) BEG, 

8.0 0.0 
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CONGORDT. OUT 


me UT DATA SOURCEFILE: CONCORDT.IN 


Nl = 4 dsrcel = F 
N2 = 4 dsrce2 = F 
option = CCON 
INPUT DATA 
Sa) 
n REAL IMAGINARY 
0 - LOOOOOE+01 -000000E+00 
1 ~oCOOOOE +O - OOO000E+00 
2 ZOUVOOOOE +O lL - VOCCO0E+O0 
S ; /VOO00ETOL - OOO000E+00 
xn2 () 
n REAL IMAGINARY 
0 ~ZOOOOOT+-O 1 -OO0O000E+00 
il: - 400000E+01 - OO0O000E+00 
2 - LOOOOOE+01 - OOO000E+00 
5 - SUOGOOE+0 1 - OCOOOO0E+00 


OUTPUT DATA 


xn3 () 
n REAL IMAGINARY 
0 -590000E+02 90725 h—05 
il 8) ff OOO MSS 0 sDoUZI72E- O06 
2 - 790000E+02 = sooo baw OS 
S -450000E+02 Too boo 05 


uo 


Example #2 


The next operation to be demonstrated is linear 


Conve Mie ilen: For this operation the two input sequences 
chosen were: Xn1() = [— 1 2 3 4 j and xn2() = (35 
2 Ie 3 As in the first example, the input sequences are 


short enough to check the solution via manual calculations. 
The listings that follow include both the input file 
CONCORDT.TST, as well as the output file CONCORDT.OUT. 
Manual calculation of the linear convolution results aed. 
sequence: xn3() = (5 214 26-40 30 2ZOml) 4a. The output 
produced by the program results in the same solution. 
This example also appears in the header text of the 
program. The user can run this problem by selecting Test 
Mode and entering 'CONCORDT.TST' as the name of the input 


fle. 


CONCORDE ot 


004 


© 
© 
On 


LCON 


rPNWABRO PWN FR 
SO 2 Oro Gro 2,6 
OO © @ @-O7 9 © Ot * 
OS 1S OS a Oe 
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iveor DATA SOURCEFILE: 


Nl = 4 
N2 = 5 
option = 

n 

0 

1 

Z 

3 

n 

O 

il 

iz 

3 

4 

n 

O 

il 

Z 

3 

4 

> 

6 

7 


asrcel 
dadsrce2 
LCON 


INPUT DATA 


Srey) 


REAL 


PEOVOOOET+OL 
eZ JO@VOE+OL 
—SOGOVOET OL 
-400000E+01 


peta (.) 


REAL 


~sGOQOOOEFOL 
-400000E+01 
- 300000E+01 
- 200000E+01 
- LOOOOOE+01 


OUTPUT DATA 


x13 () 


REAL 


- SOOOOOE+01 
- L40000E+02 
-260000E+02 
-400000E+02 
UGOUOE OZ 
Two O COLT) 2 
71 POGGIO EFOZ 
-400001E+01 


CONCORD EZOUL 


Ly 
Bi 


CONCORDT. TST 


IMAGINARY 


- DOOO00E+00 
- DCOOOO00E+00 
- DCOOO00E+00 
- DOOO00E+00 


IMAGINARY 


- DCOOO000E+00 
- DCOOOO00E+00 
~OGVOO0CE;00 
- OOOO00E+00 
- DOOOO00E+00 


IMAGINARY 


~9557) 4E=06 
~S0345 78505 
<7 200098 —-05 
-404610E-05 
ee en Ene 
~ 1 O2ooeH=05 
po ZsOUE—O5 
~-472045E-05 
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Example #3 


Using the same sequences that were used in Example #1, 
this example problem demonstrates the circular correlation 
operation. The input sequences are repeated here for ease 
of analysis: xnl() = [ 1 3 5 7 j and xn2() = ¢°2eee 
8 J. A listing of the tabular output file CONCORDT.OUT is 
included on the page that follows. The result of performing 
the calculations manually is the sequence xn3() = [ 75 61 63 
41 ]j. This compares favorably with the solution generated 


by the program. 
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CONCORDDRZOUT 


mNPUT DATA SOURCEFILE: CONCORDT.IN 


Nl = 4 dsrcel = F 
N2 = 4 dsrce2 = F 
option = CCOR 
INPUT DATA 
eat.) 
n REAL IMAGINARY 
0 PEO OOr +O a - OOOO00E+00 
1 - 2, 00000E+01 -OOO000E+00 
2 - 500000E+01 SVOOCOORT OO 
5 S77 OOOOOE TOL - OOOOO0E+00 
Te) () 
n REAL IMAGINARY 
O -200000E+01 -OOOO000E+00 
il. -400000E+01 - OOOOO00E+00 
2 POO O Ot O 1 -0OO0OO0000E+00 
3 -csOUQQOOETOL -0OO0000E+00 
OUTPUT DATA 
som ( } 
n REAL IMAGINARY 
0 wy DSOOOOK+ OZ - OOOO00E+00 
fe 7oO LOOOOE- OZ Gee rae la) eens olay) sy 
2 POS OUOCETOZ -126364E-05 
5 54 LOCCCR+TO2 —.4504coh—O05 
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Example #4 


This final example problem demonstrates the linear 
correlation computation. The sequence xn1() consists of 128 
samples of the unit step function and the sequence xn2() 
consists of 128 samples of a square wave. The goal is to 


compute the linear correlation of the two sequences i.e., the 


sequence: R() . Plots of the two input sequences, 
xnixn2 
xn1() and xn2(), as well as the output sequence R() are 


provided on the pages that follow. Manual calculation of the 
solution to this problem is somewhat impractical. However, 
the plotted data allows the user to verify that the results are 
correct through graphical analysis. The wraparound 
phenomenon discussed in Chapter III is evident from the plot 
of the output sequence. The actual non-zero values for the 
linear correlation of these two input sequences, as they are 
defined in this problem, consists of the computed output 
sequence truncated at sample n = 127. 

The linear correlation of two real sequences results ina 
sequence that is also real. Figure E.4 is a plot Of ene 
imaginary part of the output sequence for this example 
problem. These non-zero values result from the use of 
Single-precision computations as part of the DFT algorithm. 
Since the user will experience similar results, the plot of the 


imaginary values is included in this analysis. 
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- Example #4. 


Input sequence xnl(n) 


Figure E.1 
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(U) # TTUNYS 


TX 
mT ))|OTWTOtC«kDSCt«“‘«éiaTSC*«‘k SCSC:«C 
080 
p20 
ob 
710 
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Input sequence xn2(n) —- Example #4. 


Figure E.2 
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(U) # TTdNYS 


€ = #eBT X 
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a 08 °8 
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(real part) 


The result of linear correlation 


hagure §.3 


Example #4. 
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(U) # TTdHyS 
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The result of linear correlation (imaginary 


Figure E.4 


- Example #4. 


Dake) 
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Open input file. 





Read Nl, dsrcel. 
Read N2, dsrce2, option. 





Conduct error checks. 






>|Call SAMPL1 to 
generate input: 





xnil(). 








Call SAMPL2 to 
generate input: xn2(). 





> 





N 
Read xnl() from file. 
CS SS SS 






N 


Read xn2() from file. 


< 


TEST 
mode ? >|Write input data 
ento monitor screen. | 





Write input data to output files: 
CONCORDT.OUT and CONCORDT. OAT. 





‘LCOR' or 


*LCON' 
>{Call ZEROPAD to extend 
the input sequences to 


length N3 = Nl + N2 - 1. 





"CCOR® or 
*CCON® 





< 


Call OFT to compute: 
xk1() = OFTP(xnl()). 
Call OFT to compute: 
xk2() = OFT(xn2()]. 
"LOON® or 


"LOOR' or 
'CCOR’ 





> 





Por i = 0, N3-1. 


“KI (i) = xk1 (1) *xk2(1) 


Call INVOFT to conpute: 
xn3() = IDFT(xk3()). 










>|For i=0, N3-1. 






xk1(i) = conjg(xk1(i)) 
xK3(4L) @ “el (iL) *ek2 (1) 


Call INVOFT to compute: 
xmn3() © IDFY({xx3()]. 


Write results to files: 
CONCORDT. DAT and CONCORDT.OUT. 


; 


Figure E.5 CONCORDT.FOR Software Flowchart. 


89 


xn(1)°= cmpise(02070 0) 





Figure E.6 ZEROPAD Subroutine Flowchart. 
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Appendix F 


The program FFT.FOR computes either the FFT or the IFFT 
of a complex sequence of input data. This appendix contains 
an example problem that demonstrates each of these computa- 
eTons. The final pages of this appendix are the software 
flowcharts of the main program FFT.FOR and the subroutines 
mee, LNVPEFT, and REVERSAL. 

Development of the FFT algorithm is somewhat involved 
and in any case beyond the scope of this report. However, 
in order to make the software flowcharts and corresponding 
Fortran source code more understandable, the following 
synopsis pertains to the FFT algorithm as developed in 
Chapter 8 of Reference 1 and implemented by this program. 
The variable names used throughout correspond precisely to 


those presented in the reference. 


The FFT computation for a sequence of length N = 2” 
Values 1S broken up into m stages. Each stage consists of 
N/2 two-point DFT computations called 'butterflies'. In an 


effort to increase the computational efficiency of the 
algorithm, each butterfly occurring within a given stage and 
requiring use of the same weighting factor (W = e~j2mr/N) is 
computed in a single loop, thus eliminating the requirement 
to recompute the weighting factor for each consecutive 
mucterfly. The addresses (array indices) of the two values 
that participate ina butterfly computation are assigned the 
values: itop and ibot. The value corresponding to the 


oi 


separation between these indices is the value iwidth, l.e., 
iwidth = ibot - itop. The tradeoff of grouping the 
butterfly computations by their weighting factors is the 
determination of the correct participants for each butterfly 
in the group. The program determines the addresses of these 
participants through use of the values itop, ibot and 
DWalatetie The efficiency gained by grouping the butterflies 
according to their weighting factors is a function of the 
number of values (N) comprising the input sequence. 

The listing below further explains the function of the 
individual variables as they appear in the software. 


m- The integer value that specifies the number of 
complex samples contained in the input 
sequence, i.e., N = 24, 

dsorce - The character string 'F' or 'S' that specifies 

whether the input sequence xtmp() is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPLE. 

option - The character string '‘'FFT' or ‘INV' that 
Specifies the computation to be performed. 

) - The complex input sequence of length N. 

) - The array containing the original “Spee 
sequence but in bit-reversed order. After the 
Subroutine FFT or INVFFT is called, this array 
contains the results of the FFT/IFFT computa- 
tion in rectangular werorn, 1. ees (real, 
imaginary). 

xmag() - The array containing the magnitude values of 

the output sequence. 
xph() - The array containing the phase (degrees) values 
of the output sequence. 

L - The integer value corresponding to the stage 
being computed. 

iwidth - The integer value corresponding to the address 

Separation of the participants in a butterfly 


xtmp 


computation. 

itop - The integer value corresponding to the array 
index of the first participant in a butterfly 
computation. 


2 





ia Oe 


1space 


maddr 


newaddr 


The integer value corresponding to the array 
index of the second participant in a butterfly 
computation. 

The integer value corresponding to the address 
separation between first participants in 
consecutive butterflies. 

The value corresponding to the index of the 
weighting factor. ; 

The complex weighting factor W = e J27r/N 
involved in each butterfly computation. 

The integer value corresponding to the original 
address of the elements of the input sequence. 
The integer value corresponding to the new 
address assigned as a result of the bit- 
reversal algorithm. 


oe 


Example #1 


This example demonstrates both the FFT and the IFFT 
computations. The input sequence consists of N = 8 (m = 3) 
samples of the real sequence xtmp() = [0 1 2 3 4 90 0O 
oes The imaginary part of each sample is assigned the 
value 0. Included on the page that follows are listings of 
the input file FFT.TST required to run this example problen, 
as well as the tabular output file FFT.OUT. In order to 
reproduce the original input sequence, the FFT results of 
the sequence were input to the program on a second run and 
the IFFT of this sequence was computed. Listings of the 
input and output files corresponding to this second run are 
also included. 

This example problem is also developed in the header 
text of FFT.FOR andwcan be rune ote user in Test Mode by 


using the data prestored in the input file FFT.TST. 
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FFT .TST 


S FE ees 
oe 0 One 
i 0 0.0 
ZO oe 
57. 0 O20 
4.0 Oe 
oF 0 0.0 
0.0 Om 
oO. O 0.0 


PRT .OUT 


meur DATA SOURCEFILE: FFT.TST 


VALUE OF m = 3 VALUE OF N (2**¥m) = 8 
dsorce = F option = FFT 
INPUT DATA INPUT DATA 
(BIT-~REVERSED ORDER) 
SAMPLE # REAL IMAGINARY REAL IMAGINARY 
0 - OOO000E+00 - OO0000E+00 . OOOO000E+00 . OO0000E+00 
i - LOOOOOE+01 - OO0000E+00 -400000E+01 . 000000E+00 
2 -200000E+01 . OOO000E+00 ~200000E+01 - O0O0000E+00 
2 -300000E+01 - OO0000E+00 . 0O00000E+00 - O0O0O000E+00 
4 -400000E+01 - OOO000E+00 . LOOOOOE+01 - O0O0O000E+00 
5 - 000000E+00 - OO0000E+00 . OOO000E+00 . OO0000E+00 
6 . OO0000E+00 - OO0000E+00 -300000E+01 - O0O0000E+00 
q . OOOO00E+00 . OOOO000E+00 - OOO000E+00 - OOOO00E+00 


OUTPUT DATA 


SAMPLE 4 REAL IMAGINARY MAGNITUDE PHASE 
(DEGREES) 
0 . LOOOOOE+02 . 000000E+00 . LOOOOOE+02 . OOOO00E+00 
1 -.541421E+01 ~.482843E+01 .725448E+01 -.138273E+03 
2 .200000E+01 . 200000E+01 .282843E+01 . 450000E+02 
3 -.258579E+01 ~.828427E+00 .271525E+01 -.162236E+03 
4 . 200000E+01 . OOO000E+00 . 200000E+01 . OO0000E+00 
5 -.258579E+01 .828427E+00 .271525E+01 .162236E+03 
6 .200000E+01 -.200000E+01 .282843E+01 -.450000E+02 
7 ~.541421E+01 .482843E+01 .725448E+01 .138273E+03 


aS 


3 EF 

10.9 0.0 
-5.41421 -4.82843 
20 ZO 
—=220900/9 "“Seg2ee7) 
2-30 0.0 
=2.0290/9°  Bezeaes, 
2.0 =Z2n0 
-5.41421 4.82843 


PFT.IN 


INV 


hen Ows 


INPUT DATA SOURCEFILE: FEZ. iN 


VALUE OF m = 3 
adsorce = F 


INPUT DATA 


SAMPLE # REAL 
- EOGOCOE+OZ 
-.541421E+01 
-2<00000E+-Ou 
= 25605792708 
- 200000E+01 
25007 aeons 
- 200000E+O01 


~.541421E+01 


NOON WNF O 


OUTPUT DATA 


SAMPLE # REAL 
- QOO000E+00 
- LOOOOOE+01 
»- 200000E+01 
- sOOQOOG0E+OL 
- 400000E+01 

= L/2e55n-05 

-.834465E-06 
a7 L256 —0e 


NOM PUNRFO 


IMAGINARY 
- OOOO00E+00 
-.482843E+01 
- 200000E+01 
-.828427E+00 
- OO0O000E+00 
-828427E+00 
=, 200000E7OGL 
~-482843E+01 


IMAGINARY 


- OCOOO00E+00 
=e / 622708 —O9 
+437 LU4E-07 
~2lS5o7h—e7 
- OCOO000E+00 
7.42929 beoog 
=ao? Liao, 
~2LoOD aed 
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VALUE OF N (2**m) = 8 
option = INV 


INPUT DATA 


REAL 

« LOOOOOE+02 

-200000E+01 

-200000E+01 

-200000E+01 
-.541421E+01 
=. 2060) oor 
=. 298597 9b 
-.541421E+01 


MAGNITUDE 


- OOO000E+00 
~LOOOOCE+OL 
~-200000E+TOL 
- 300000E+01 
-400000E+01 
21729072205 
~S35609h=06 
27 LOS CRUG 


(BIT-REVERSED ORDER) 


IMAGINARY 
- OOO000E+00 
- DO0O000E+00 
-200000E+01 
-.2Q00000E+01 
-.482843E+01 
-828427E+00 
-.828427E Ge 
~-482843E+01 


PHASE 
(DEGREES) 

. O0O0000E+00 
-.448207E-07 
.125224E-05 
.417413E-06 
. 000000E+00 
~.178577E+03 
-.177001E+03 
.175021Eeem 


Convert results from real and 
imaginary to magnitude and phase. 





Open input file. 








Read m, dsorce, option. 


Conduct error checks. 










>|Call SAMPLE to 


generate input: xtmp(). 


12 
Read xtmp() from file. 
< 


TEST 
> 


Call REVERSAL to reorder 
the input sequence: 
x() <-- xtmp(). 


Write input data 
onto monitor screen. 








>(Call INVFFT to 
compute the IFFT: 
x() = IFFT(x()]. 











Write results to files: 
FFT.OUT and FFT.DAT. 


Figure F.1 FFT.FOR Software Flowchart. 


a7 


1space = 2**L 
Ss = N/ispace 
iwidth = ispace/2 





>|For itop = j, N-2, ispace. 


ibot = itop + iwidth 
tmp = x(ibot) *W 
See te x (TOP) meen 






x (itop) x(itop) + tmp 


Figure F.2 FFT Subroutine Flow Chart. 
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©) 


>|For i= 1, N-l. 
Conjugate each xtmp(i). 


Call FFT to compute the FFT: 
Kemp () = srl ixctmp() }. 


@ 






Conjugate each xtmp(i). 


Figure F.3 INVFFT Subroutine Flowchart. 


a2 


A 


>|For k = 0, Nel. 
[io 


lrmndr = mod(maddr, 2) 
newaddr = newaddr+lrmndr*2** (m-1-1) 
maddr = maddr/2 





x(newaddr) = xtmp(k) 


(B) 


Figure F.4 REVERSAL Subroutine Flowchart. 
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Appendix G 


The four computations that CONCORFT.FOR is capable of 
performing are demonstrated by the example problems included 
in this appendix. CONCORFT.FOR, like the other problem 
solving programs, generates an output file (CONCOR.DAT) that 
contains a listing of the input sequence(s), as well as the 
output sequence ina form suitable for plotting. Example #4 
of this appendix includes plots of the input and output 
sequences used for that problem. The plots were produced by 
the program PLOTDAT. FOR. The final pages of this appendix 
are a flowchart of CONCORFT.FOR. Flowcharts of the six 
subroutines called by CONCORFT.FOR are not included in this 
appendix as each was presented previously. 

The variable names listed below are used in the Fortran 
source code of CONCORFT.FOR and in the corresponding 
flowcharts. 


N1 - The integer value that specifies the number of 
complex samples contained in the input sequence 


Sw ce 

N2 - The integer value that specifies the number of 
complex samples contained in the input sequence 
oldz ie. 


dsrcel - The character string 'F' or 'S' that specifies 
whether the input sequence xnl() 1s to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPL1. 
dsrce2 - The character string 'F' or 'S' that specifies 
whether the input sequence xn2() is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPL2. 
option - The character string that specifies the 
operation to be performed as follows: 
'LCON' = Linear convolution, 
'LCOR' = Linear correlation, 


Cer 


'CCON’ = Citreular Como ue lon, 


'CCORT ="Cirewlar COrLbewacron. 
xn1l() - The first complex input sequence of length Nl. 
xtmpl() - A dummy array used for computations involving 
the array xnl(). 
xn2() - The second complex input sequence of length N2. 
xtmp2() - A dummy array used for computations involving 
the arnrmay xnz()- 
xn3() - The complex output sequence. 
xtmp3() - A dummy array used for computations involving 


the anmay om.) 
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Example #1 


This example demonstrates the circular convolution 


operation. The input sequences consist of the following 
real values: Soe (le ao eo 7 1 vane xm2() = { 2. 4 «1 
3 le The result of manually calculating the circular 


convolution of these two sequences is the sequence: xn3() = 
eoo)6U€«é#fPylhlCU79DUC<C KK SCWwC«STTCWHENsCdDW SHENGS that follow include the 
input file CONCORFT.IN, required to run this problem, and 
the tabular output file CONCORFT.OUT containing the computed 
results. As can be seen from the listing of CONCORFT.OUT, 


the computation produced the anticipated results. 


CONCOREAge N 


004 


004 CCON 


OrbibNAI OW F&F 
O OOO" Gea @ 
©'O ©1060 © © @7o77) 5 
O0O0O0000 0 
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CONCORET OU 


INPUT DATA SOURCEFILE: CONCORFT.IN 
Nl = 4 dsrcel = F N2 = 4 dsrce2 
option = CCON 


INPUT DATA 

xn1() 
n REAL IMAGINARY 
0 - LOOOOOE+01 - OOOO0O00E+00 
il - s00000B70n - OOO000E+00 
2 - 500000E+01 - OOOO0O00E+00 
3 . 7OOO0OE+01 - OOOO0O00E+00 

rae 
n REAL IMAGINARY 
0 -2Z000C02+ 0 1 - OOOO000E+00 
i) -400000E+01 - OOOO000E+00 
2 - LOOOOOE+TO1 - OOOOO00E+00 
3 . S00000H7 62 - OOOO00E+00 

OUTPUT DATA 

xine) 
n REAL IMAGINARY 
0 -S20000ELOZ -(15256E 016 
1 ~o OCCOR- O02 200266 n— Ole 
Z - 7 2000CE.O2 = J 152 o6h 0 
3 -450000E+02 =.262Z260h 06 
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Example #2 


This example problem is developed in the header text of 
CONCORFT.FOR and can be run by the user by selecting Test 
Mode and using the input data prestored in the file 
SenecORFT.TST. The goal of this example is to compute the 
finear convolution of the two sequences: xnl() =[1 1 1 
1 j} and xn2() = [2 2 2 2 2]. The sequence that should 
result from the operation is: xn3() =[2 4 6 8 8 6 4 
2 j. A listing of the input file CONCORFT.TST required to 


run this problem appears below. 


CONCORF Ie bo. 


004 es 
005 bs LCON 
say O 0.0 
ales O 020 
iy. O 0.0 
ee 0 OG, 
AW O20 
Zz. O vee 
Ze. 0 0.0 
Ae O20 
ae 0 0.0 


A listing of the tabular output file CONCORFT.OUT is 
included on the page that follows. The computed output 


sequence compares favorably with the anticipated result. 


eS 


CONCORFT. OUT 


INPUT DATA SOURCEFILE: CONCORFT.TST 
N1l = 4 adsrcel = F N2 = 5 adsrce2 = F 
option = LCON 


INPUT DATA 

Sorel (a) 
n REAL IMAGINARY 
O . LOOQOVUETUL - OOOO0O00E+00 
al . LOOC0CE.O1 -00O0000E+00 
2 - LO0CO0CR-O1 - OOOO0O00E+00 
3 wi00@00E+O1 -000000E+00 

xn2@ 
n REAL IMAGINARY 
0 2000008. on - OOOO0O00E+00 
i: 2000 OO a © 1 - OOO000E+00 
Z c0CCO0O Erol - OOOO00E+00 
3 . 2000005701 . OOOO OOET CS 
4 -200C 00H OM . O0COO000E-00 

OUTPUT DATA 

xa} 
n REAL IMAGINARY 
O -2000 00K .0n: - 69407 08 U7 
a -400000E+01 -421468E-07 
2 ~SOO000H +01 -/ 5497 oR OR 
3 - S00000E. 01 - lee 537-06 
4 -SOO000E+O1 -o940700-O07 
5 -600000E+01 4214685 -07 
6 -400000E+01 , (549 79E-—07 
7 200 000H701 1638 5375-06 
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Example #3 


Using the same input sequences as Example #1, the 
Circular correlation operation 1s demonstrated by this 
problem. The input sequences are: xnl() = [1 3 5 7 ] 
ciere xni2() = [ 2 4 iL oa For this computation, the 
anticipated result is the sequence: xn3() = [ 75 61 63 
me) A listing of the tabular output file 1s included 
below. The computed output sequence, xn3(), compares 


favorably with the anticipated result. 


SCONCORET .OUL 


INPUT DATA SOURCEFILE: CONCORFT.IN 
Nl = 4 dsrcel = F N2 = 4 dsrce2 = F 
option = CCOR 


INPUT DATA 

Servlet) 
n REAL IMAGINARY 
0 sLOCOOOE+OL -0OCOO0E.O0 
ale soWOOCOE+TOL - COOOO00E+00 
2 ~SVOOO Or Ol BOVOOOOE+OG 
3 POCO OE +0 Ll - OOOO00E+00 

xz ) 
n REAL IMAGINARY 
0 PpavOV0OE+O LT -O0O0000E+00 
i; -400000E+01 - OOOO000E+00 
2 SEOOOOORTOL - OCOOO00E+00 
2 so0000087T0 I /O000COEFO0 

OUTPUT DATA 

xs ©) 
n REAL IMAGINARY 
0 7 SUC OH tw TOU OOOE TOO 
1 [eo LOCOonk + OZ Pose lo U6 
2 Bos OU OOE1 02 ZOCOOOOET00 
3 -410000E+02 See i) OG 
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Example #4 


This example problem demonstrates the linear correla- 
tion computation. The sequence xnl() consists of 128 
Samples of the unit step function and the sequence xn2() 
consists of 128 samples of a square wave. The goal is to 
compute the linear correlation of the two sequences, i1.ée., 


the sequence: R() . Plots of the two input sequences, 
Serer iz. 


xn1() and xn2(), as well as the output sequence R() are 
provided on the pages that follow. As discussed previously 
(Example #4 of Appendix E), wraparound of the output 
sequence iS produced by the program due to the zero padding 
required by use of the DFT technique. The wraparound 
results in non-zero values of the output sequence in the 
interval: 128 to 254. The plot of the output sequence 
Clearly shows the wraparound phenomenon. 

Example #4 of Appendix E also discussed the non-zero 
imaginary output values that are produced by the program 
CONCORDT.FOR when ccrrelating two real input sequences. As 
exhibited by Figure G.4, CONCORFT.FOR produces’ similar 
results. The non-zero values are attributed to the single 


precision FFT algorithm used in the correlation computation. 
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- Example #4. 


Input sequence xnil(n) 


Figure G.1 


Og 


(U) # TTdHYS 
¢ ] OT 910 05°0 Ge 8 


(U)ZUX FNUNOTS INdNT 


8 


ob 8 


ct Q 


960 


Oey 


(U)2UX 


A KOT x 


Input sequence xn2(n) - Example #4. 


Figure G.2 
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(U) # ATdKYS 
i 
poe EB ¢ eG J 18'T oo'8 006 
: O0'e 
cb y 
p8'¢ 


92°F 


89'S 


OTe 


UOTE audo) MeaUTT 


()EUX Uae 


T eeay x 


The results of linear correlation (real part) 


Earcuase: G.3 


Example #4. 
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(U) # TTdnes 
2 ¥xOyT X 
pc'e fA’? ec T 10'T c'8 0°8 
lane CP 8- 


ic Q- 


60 8- 
()EUX DOKI 





UOTJEfaddo) ceaul] 


The results of linear correlation (imaginary 


Figure G.4 


~- Example #4. 


part) 


2 





Open input file. 














Read Nl, dsrcel. 
Read N2, dsrce2z, option. 


Conduct error checks. 
¥ 
> 
N 
Read xnl() from file. 
< 
Y 
> 
N 


Read xn2() from file. 
< 









Call SAMPL1 to 
generate input: xml1(). 








Call SAMPL2 to 
generate input: xn2(). 













>|Write input data 
onto monitor screen. 





Write input data to output files: 
CONCORFT.OUT and CONCORFT. DAT. 





"LCOR’ or 


*LOON® 
>|Call ZEROPAD to extend 
the input sequences to 


length: 
N3 = 2° > N1 + N2 - 1. 







*CCOR® or 
*CCON 






Call REVERSAL to reorder the 
sequences in bit-reversed order: 
xtmpl() <-~ xnl() 

xtmp2() <=*= m2(). 








Call FFT to compute: 
xtmapl() © FRPT(xtmpl() J 
xtmup2() = FFT(xtmp2()]). 









"LOON’ or 
*CCON® 
>[rer bse, wet 
"LOOR’ or 
*CCOR® xtmp3(i) = xtmpl(i) *xtmp2(i) 





>|Por i 2 6, N3-l. 


xtmpl(i) = conjgq(xtmpl(i)) 
xtmp3(i) = xtwpl(i) extmp2(i) 







Call REVERSAL to reorder the 
sequence in bit-reversed order: |< 
mi3() <== xtmp3(). 


Call INVFFT to compute: 
xm3() = IPFT(xm3()])- 


Write results to files: 
CONCORFT. OAT and CONCORFT. OUT. 


Figure G.5 CONCORFT.FOR Software Flowchart. 


113 


Appendix H 


The program CONCOR.FOR will compute either the linear 
convolution or the linear correlation of two sequences of 
input data, depending on the option selected by the user. 
This appendix includes two example problems, each of which 
demonstrates one of these computations. The last pages of 
this appendix are the flowcharts that describe CONCOR.FOR 
and the subroutines CONVOL and CORREL. 

The variable names listed below are used in the Fortran 
source code of CONCOR.FOR and in the corresponding flow- 
CNarts: 


option - The character string that specifies the 
operation to be performed as follows: 


'LCON' = Linear convolution, 
'LCOR' = Linear correlation. 
nsil - The integer value denoting the starting point of 
enol )ees 
nel - The integer value denoting the ending point of 
Serle). 


dsrcel - The character string 'F' or 'S' that specifies 
whether the input sequence xnl1() is to be read 
from the input file (F) or generated (S) through 
use of the subroutine SAMPL1. 


ns2 - The integer value denoting the starting point of 
Dore aes 

ne2 - The integer value denoting the ending point of 
M2 lies 

dsrce2 - The character string 'F' or 'S!' that specifies 


whether the input sequence xn2() is to be read 
from the input file (F) or generated (S) through 
use of the subroutine SAMPL2. 


xnl() - The first input sequence of length Nl = nel- 
nS kh ele 
xn2() - The second input sequence of length N2 = ne2- 
nSZ- = oie 
yn() - The output sequence of length N3 = Nl + N2 - 1 
produced if option = 'LCON'. 
ns3 - The integer value corresponding to the starting 


point of the output sequence. 
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ne3 - The integer value corresponding to the ending 
point of the output sequence. 

R() - The output sequence of length N3 = ne3 - ns3 + 
Peprocueca If opcion — ~LCOR'. 


eS 


Example #1 


The first computation to be demonstrated is the linear 


convolution of the two sequences: xnl(n) = [1 1 1 1 } 
for -3 <n <s 0 (nsl = -3, nel = 0) and 3n2(n) =) ee 
aa oa for O<hn< 4 (ns2 = 0, ne2 = 4). To Glan gee 


example problem the input file CONCOR.TST was created. A 


listing of this file appears below. 


CONCOR eo 


LCON 
=3 Q000 iB 
0000 0004 ie 
1.0 
Le 
io 
10 
10 
2) 
oo 
4.0 
DG 


This example is also developed in the header text of 
CONCOR.FOR and can be run by the user in Test Mode by 
specifying the input file CONCOR.TST. The computed output, 
aS it appears in the file CONCOR.OUT, is included on the 
page that follows. In addition to the tabulated data, plots 
of the input and output sequences are also included. The 
plotting program PLOTDAT.FOR will not attempt to connect the 
plotted values of sequences consisting of less than 25 


points. Instead, the symbol '+' is placed on the plot at 
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the appropriate locations. This example problem was chosen 
to demonstrate this feature of PLOTDAT.FOR. 

The result of manually calculating the linear convolu- 
tion of the two input sequences is the sequence: yn() = [ 1 
3 6 10 14 12 9 5). This compares favorably with the 


computer generated results. 


CONCORZOUT 


INPUT DATA SOURCEFILE: CONCOR.TST 
nsl = =3 nel = 0 dsrcel 
ns2 = 0 ne2 = 4 dsrce2 
option = LCON 


i il 
ry hy 


INPUT DATA 

n xnl1(n) 
-3 TEOOOCOOE+O 1 
oe ~LOOOOOE+0 1 
oe eLOOOOOETOL 
O sO OO00OE+0 1 
n xine (i) 

0 ~EOOOOOE+ OL 
il 2 OO000E+F01 
2 wOCOOCE FOL 
3 -400000E+01 
4 sSU0000E FUL 


OUTPUT DATA 
n yn(n) 


=I 2 OOCOOUER TOL 
me -o 00000701 
= - 6;00000E+01 
O PLOOO0OnTOZ 
it -L140000E+02 
Z pIZOOOOETOZ 
3 . JO0000E+01 
4 PoUUOOUE a 01 


7 


(U) # ATdHYS 
‘es 
0'8 09'8- 62 'T- 08'T- Ob 'é- ba'E- 
r 008 
pe 8 
SPB 
¢L 0 


, : 96° 


Oe] 
(U)TUX FINTNDTS NANI 


(U) TUX 


QB  xeQy X 


- Example #1. 


Input sequence xnl1(n) 


Figure H.1 


ETS 


7 (U) # TTdHYS 


00°F Oct Ob’? ao°T 088 006 
ea ee 00°8 


fer 
b2'e 
EE 
8b 't 


09'S 
(U)2UX FINANDAS LNdNI 


(U)gUX 


QB xxOy X 


- Example #1. 


Input sequence xn2(n) 


Figure H.2 


Pio 


_— (U) # TTdHYS 


00°F Oe Oe'T 02 0- O° T- bb t- 
aa ee ee 
i 


t 260 

' £9'0 

' 96'0 
92'T 


09'T 
UOLN]OAUO) URaUTT 


(U) UR 


T xeOT * 


- Example #1. 


The result of linear convolution 


Figure H.3 
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Example #2 


This example demonstrates the linear correlation option. 
The input sequences chosen are identical to those used in 
Example #4 of Appendix E. The input sequence xnl1() consists 


of Nl = 128 values of the unit step function, and the input 


sequence xn2() consists of N2 = 128 values of a square wave. 
Plots of the input sequences, as well as the output 
sequence, appear on the pages that follow. The results of 


the correlation operation, aS produced by CONCOR.FOR, are 
Similar to those produced by CONCORDT.FOR and CONCORFT.FOR. 
However, as the plots indicate, the wraparound phenomenon 
exhibited previously does not occur when the sequences are 


linearly correlated in the time domain. 
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i) 
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(U) # STAYS 
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00°8 


oP 0 
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Oe] 
CTVTE) TUX FINTNDTS LNdWI 
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- Example #2. 


Input sequence xnl1(n) 


Figure sHe4 
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- Example #2. 


Input sequence xn2(n) 


Pigure H.5 


2S 


(1) # TTAHYS 
@  -eNBT X 
ue] 1O'T a ao'8 Ge 6 00°6 
008 
| 
b8'¢ 
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The result of linear correlation - Example #2. 


Figure H.6 
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input file. 


option. 
Read nsl, nel, dsrcel. 
ns2, ne2, dsrce2. 


Conduct error checks. 
Y 
> 


N 


Read xnl() from file. 


< 


7 
> 
N 
Read xn2() from file. 
< 
TEST 
mode ? > 


BATCH 


< 
Nl = nel - nsl + 1 
N2 = ne2 - ns2 +l 


Write input data to files: 
CONCOR.OUT and CONCOR. DAT. 


option = 'LCON’ ? > 
N 


N3 = ne2 - nsl + l 
Call CORREL to compute 
linear correlation. 















Call SAMPL1 to 
generate input: xnl(). 
Call SAMPL2 to 
generate input: xn2(). 
Write input data 
onto monitor screen. 










N3 = Nl + N2 - l 


Call CONVOL to compute 
linear convolution. 













Write results to files: 
CONCOR.DAT and CONCOR.OUT. 





Figure H.7 CONCOR.FOR Software Flowchart. 


2D 


>|For n = ns3, ne3. 


>| FOr 1°= 35:70, —i2 


<3 -i 


4 
= 
Y 
yn(n) = yvnin) + xn2(ns2+j-1)*xni(nsis?) 
< 
) = Jee 
(B) 


Figure H.8 CONVOL Subroutine Flowchart. 
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© 


For p = ns3, ne3 


: : 
BO dh. = Say Oue = 1 


imdexl = nel - j + 1 
index2 ns2 + i 


Ss : 
Me 


> 
> 


R(p) = R(p) + xnl(index1) *xn2 (index2) 


Figure H.9 CORREL Subroutine Flowchart. 
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Appendix I 


The iterative solution to an LTI difference equation is 
rather straight-forward. If the equation consists of only a 
few terms, several iterations can be computed by hand 
Calculations. A more complex equation requires a solution 
derived by an analytical approach or through use of a 
recursive algorithm. DIFFEQ.FOR provides a recursive means 
of computing the output sequence y(ns) when provided with 
the input sequence x(ns) and the’initial conditions of the 
system. This appendix includes the flowcharts of DIFFEQ.FOR 
and the subroutine DIFFEQ. Additionally, two example 
problems are developed which demonstrate the capabilities of 
DIPEREO.FOR. 

The variable names listed below are used in the Fortran 
source code of DIFFEQ.FOR and in the corresponding flow- 
charts. 

numsys - The integer value that specifies the number of 

difference equations in the form of Equation 
(Bre) that are to be solved. For each 
difference equation, the input parameters 
described below must be provided by the user. 
L - The integer value denoting the maximum number 
of delays occurring in the input sequence x(). 
N - The integer value denoting the maximum number 
of delays occurring in the output sequence y(). 
nstop - The integer value corresponding to the largest 
time index for which the sequence y() is to be 
solved. 


xsorce - The character string 'F' or 'S' that specifies 
whether the input sequence x() is to be read 


from the input file (F) or generated (S) 
through use of the subroutine XGEN. 
b() - The coefficients of the input sequence cor- 


responding to Equation (3.9). 
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a() 


yee) 


x() 


ns 


mpazob 


The coefficients of the output sequence 
corresponding to Equation (3.9). 
Mico OuEpUG sequence Of length; N + nstop + 1. 


The initial condition sequence y(-N)...y(-1) 
must be provided by the user if N > 0O. The 
remaining values in the sequence y(0)...y(ns- 


top) are computed by the program. 

The input sequence of length: nstop + l. 

The time index of both the input sequence and 
the output sequence. 

The integer value corresponding to the dif- 
ference equation being solved. 


tea 


Example #1 


The first example involves the solution of the difference 


equation: 


y (ns) 1.2*y(ns-1) + 1.5*x(ns) 
Given: y(-1) = 25.0 


x(ns) = 100.0 for Os ns § nstop 


(725) 
The goal is to compute the solution to this difference 
equation for values of ns in the range: 0O< ns < 10. Listed 


below is the input file DIFFEQ.TST required tc YOmme we. 


problem: 
DLPEEO. Ion 
i 
OOO O01 010 E 
5 
2 
2550 
LOO 70 LOO0 LOO. LOGO 100.0 LOO RG 
100.0 1E(B KO) 5 0. 100.0 107 
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Included on the page that follows is a listing of the 
computed solution as it appears in the file DIFFEQ.OUT. The 
manual computation of y(ns) for the first few values of ns 
ylelds the sequence y(ns) = [ 25 180 366 589.2 ...]. As 
can be seen from the tabular output, the solution was 
correctly computed for these values of ns. Continuing with a 
more analytical approach, the solution to this difference 
equation can be found for any value of ns 2 O with the aid 
of the geometric sum equation. The solution, after some 
manipulation, is: 
1.0 - 1.2nstl 
y(ns) = 25.0*1.2"St1l + 150.0% ———_—_—— fOr Noe =20 
= Oe 


(22) 
For example: 


1.0 - 1.211 
y(10) = 25.0*1.211 + 150.0% ——————-. =) 55008.315 
Ore 
(ea) 

To an accuracy of two decimal places the computed solution 
matches the analytical solution. 

This example problem is also developed in the header 
text of DIFFEQ.FOR and can be run by the user in Test Mode 
by using the prestored data found in the input file 


meer EO. TST. 


Een: 


DEEFEOmOUd. 


INPUT DATA FOR PROBLEM # 1 


PROBLEM # 1 INPUT DATA SOURCEFILE: DIFFEQ.TST 
THE NUMBER OF INPUT DELAYS: L= _ 0 

THE NUMBER OF OUTPUT DELAYS: N= 1 

THE VALUE OF nstop IS: 10 

THE COEFFICIENTS b(0), b(1), .--, b(L) ARE: 
.150000E+01 

THE COEFFICIENTS a(1), ..., a(N) ARE: 
.120000E+01 


OUTPUT DATA FOR PROBLEM # 1 


ns x (ns) y (ns) 

a . OOCCOCE+CE -250000E+02 
0 - LOOOOGE+O3 - L8SO000E+03 
iz - LOOCGCOETGS -366000E+03 
2 +LOOCUOE.O3 taco c OC. aG 
3 - LOOGGOETO3 -857040E+03 
4 - LUOCOOETO3 -117845E+04 
5 LOCC COE.CS - 1564140704 
6 - LOOOOOE+03 -202697E+04. 
Z - LOOOCCE. OS +256 2368404 
8 -LOOC COE TOS -324883E+04 
a - LOOOOOE+03 -404860E+04 

10 » LOOOCCCE+TO3 ~-D00S3Z2ZETO04 


~--------------- END OF PROBLEM # 1 -----~-~---------- 
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Example #2 


This second example requires the solution to the 
difference equation: 
cues) — O-95%*y(ns—-1) —- 0.9025*y(ns—-2) + x(ns) - .475*x(ns-1l) 


(I.4) 


Given: y(-2) (-1) = 0.0 


x(ns) Lor AS@= 70 


y 
cia 6, 
0.0 otherwise 
The system described by this difference equation corresponds 
to the transfer function: 
Vz) 1.0 - .475%*z71 
H(Z) 0 = 
x (Zz) 1.0 - 0.95271 + 0.9025272 
(1.5) 
With the aid of the Inverse z-Transform Formula, the 
analytical solution of this example problem is found to be: 
y(ns) = 0.9575 * cos(m*ns/3.0) for ns 2 0 
(1.6) 
The next page of this appendix is a plot of the output 
sequence for values of ns in the range: Osns < 80. The 


plot clearly shows both the decaying envelope of the 


sequence, as well as the constant frequency sinusoid. 
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System output ~- Example #2. 


Figure I.1 
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Open input file. 


Read numsys. 


For nprob = 1,nstop. 


Read L, N, nstop, xsorce. 


Conduct error checks. 


For k= "0, L: 
Read b(k). 


For k = 1, N. 
Read a(k). 


For k = <-N, ol. 
Read y(ns). 


Y 
> 
N 
Read x() from file. 
< 


TEST 
> 


Write input data to files: 
DIFFEQ.OUT and DIFFEQ.DAT. 


Call DIFFEQ to compute 
the iterative solution. 


A 






Call XGEN to 
generate input: x(). 


Write input data 
onto monitor screen. 





8) 


Write results to files: 
DIFFEQ.DAT and DIFFEQ.OUT. 


Figure I.2 DIFFEQ.FOR Software Flowchart. 
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r 


>\FOr nS = 0; nscop. 
y(ns) = 0.0 


> For Kk = (0pemacc(la tie: 


y(ns) = y(ns) + a(kK)*y(ns~-k) + b(kK)*x(ns-k) 


Figure I.3 DIFFEQ Subroutine Flowchart. 
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Appendix J 


Included in this appendix are two example problems that 


demonstrate 


the capabilities of the program STATEQ.FOR. 


The final pages of this appendix are the software flowcharts 


of the main program STATEQ.FOR and the subroutine ITRATE. 


Listed below are the names of the variables used throughout 


the flowcharts and the corresponding Fortran source code. 


N 


M 


Q 


nstop 


moOrce 


v() 


XxS(1,nSs) 


vs(i,ns) 


ys(i,ns) 


An integer value that specifies the number of 
system states. 

An integer value that specifies the number of 
system inputs. 

An integer value that specifies the number of 
system outputs. 

The integer value corresponding to the largest 
time index for which the system of state 
equations is to be solved. 

The character string 'F' or 'S' that specifies 
whether the input sequence xs() is to be read 
from the input file (F) or generated (S) 
through use of the subroutine XGEN. 

An N x N matrix of state coefficients as they 
SCI hee lat lon m(6..4-0 x. 

An N xX M matrix of input coefficients as they 
Secumein Equation (3.10). 

A Q x N matrix of output coefficients as they 
Seceliambhe Moat 1 Onno. bye 

A Q x M matrix of input coefficients as they 
Aces ine Mowat 1on (35 11): 

An N x 1 vector consisting of values that 
describe the initial condition of the system. 
An integer value denoting the time index. 

An M x (nstop+1) array consisting of the input 


sequence(s). The index 1 denotes the input 
number (1, ..., M), and the index ns denotes the 
sample number (0, 1, ..., nstop). 


An N x (nstop+l) array consisting of the 
state(s) of the system. The index i denotes the 


state (1, ..., @), and the index ns denotes the 
Samples numboer (0, 1) ...,) nstop). 
A Q x (nstop+l) array consisting of the output 
sequence(s). The index i denotes the output 
number (1, ..., @), and the index ns denotes the 
Sample number (0, 1, ..., nstop). 


ay, 


X1 - A dummy variable that stores the weighted 
cumulative contribution of the input sequen- 
ce(s) for each value of ns. 
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Example #1 


This first example problem demonstrates the iterative 


solution to the state equations: 


v(nst+1) = 0.0 =1.0 v(ns) + 1.0 x(ns) 
icc) QO.0 OF..0) 
(oi. 4) 
Mas) = [{ 1.0 ~-1.0 ] v(ns) + [ 1.0} xX(ns) 
(coe) 
ime sinitial condition vector is: 
v(0) = 50 
=516 8 
coe) 
mae input vector is: 
x(ns) = [ 10.0 } Oil © eee Swe 
(J.4) 


The goal of this problem is to compute the solution to the 
given system of equations for values of ns in the range: 0 < 
Mee = 3. This example problem also appears in the header 
text of STATEQ.FOR and can be run by the user in Test 
Mode by using the input data prestored in the file 


STATEQ.TST. A listing of STATEQ.TST appears below. 


eo 


STARE ORiow 


O02 a i 
03 Ee 
Oreo =1.20 
nO O..0 
ae 

oro 

IO =o 
eee 

a 0 S570 
LOO 

i Olen@ 

Oe 0 

Or. 0 


Manual calculation of the solution to this problem yields 
the following sequences: 


vi(ns) = [ 5.0 15.0 5.0 -5.0 ] 


(a) Sy) 
V2(nNS) -= (952.0 7-50 eo Oe a 

(Jia) 
ViiGas) = (20.0.0 20 OmOrs0 Or Or 

(Js 78 


A listing of the tabular output file STATEO.OUT follows sae 
the tabular output indicates, the sequences were correctly 


computed over the specified range of ns. 
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Seer OrcOUl: 


INPUT PARAMETERS: 
fnieul DATA SOURCE FILE: STATEQ.TST 
THE NUMBER OF STATES IS: N= 2 
ioe NUMBER OF SYSTEM INPUTS IS: M= 1 
tok NUMBER OF SYSTEM OUTPUTS IS: 0 = 1 
foe VALUE OF nstop IS: nstop = 3 
THE VALUE FOR xsorce IS: F 
HE MATRIX A(i,j) IS: 
meoOOn+rOO ~~. LOOOE+01 
mLOoOOE+O1 Pe CCOER.CC 
mak MATRIX B(1,j) IS: 
~LOOOE+OL 
mo OOOE+OO 
mie MATRIX C(i,j) IS: 


meCOOETOL =. 1000Et+01 


THE MATRIX D(i,j) IS: 


mEQOOET+OL 


titer EAT CONDITION OF THE STATE VECTOR IS: 


- S00000E+01 
aso CURT On 


Wy il 
WZ 


il 
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OUTPUT DATE 


FOR ns = O THE STATE 
THE VECTOR x is: 
xl = - LOOOOOE+02 
THE VECTOR v is: 
vl = - 50000OGE OL 
v2 = ~.500000E+01 
THE VHCTORSy ts: 
yl = .200000E+02 
FOR nS = 1 THE STATE 
THE VECTOR x iS: 
xl = - LOOOOOE+02 
THE VECTOR v is: 
vl = - 1 5SO0COETO2 
v2 = « SOOOUGCE--0 
THE VECTOR 1c. 
yl = .200000E+02 
FOR ns = 2 THE STATE 
THE VECTOR x is: 
xl = - LOQOOQOOE+02 
THE VECTOR vy is: 
vl = - DOO0UCUE+TOL 
V2 = - LO OO00E FOZ 
THE VECTOR y is: 
yl = .000000E+00 
FOR ns = 3 THE STATE 
THE VECTOR x iS: 
xl = > LOODCOETO2Z 
THE VECTOR v is: 
vl = -.500000E+01 
v2 = ; SOOCODOE-FOL 
THE VECTOR y is: 
yl = - QOOOO00E+00 


OF THE so. S TEM ron 


OF THE SYSitey is: 


OF THE Svoleteets. 


OF THiws (ot Eis: 
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Example #2 


PelLOw-pass Lilter having a zero at z = -1.0 and polles at 
Zee=— .95, .95e7IT/6 .95etI7/6 has the transfer function: 
Ze ae 
H(z) = Ve LK 
Z~ - 2.5954z2° + 2.46572 - .8574 
(J 28) 


A state-matrix representation of this system is: 


518) 190 Oi. 0 OO 6 
v(nst+1) = 0.0 07.0 lee v(ns) + Oo Oe" | x(ns) 
Opeo5 74 —-2,465/ 2,5954 i el 
(i.-2 ) 
Vans) = f[{ 1.0 ie O.0 evinsi e+ | CRC) |] Sains) 
(5.10) 
The inputs to the system are the three sequences: 
Xxl(ns) = 10.0*u(ns) 
(den E A) 
X2(nNS) = 2*cos(m*nS/6) *u(ns) 
CS 212:) 
X3(ns) = 2*cos(m*nS/2) *u(ns) 
(dees .) 
The initial condition of the system is the vector: 
O 
v() = 0 
O 
(3214) 


To solve this problem, the input file STATEQ.IN was created. 
A listing of this file appears below. Plots of the 
sequences xl(ns), x2(nsS), x3(ns), vi(ns), v2(ns), v3(ns), 
and yl(ns) are included on the pages that follow. The 
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sequences were computed for 100 values Of ns (nSstop = 2ae 
Because of the lengths of the input sequences, all three 
input sequences were generated through use of the subroutine 
XGEN. 

As the plots indicate, the filter amplifies the low 
frequency inputs xl and x2, but attenuates the high 


frequency input x3. 


STIATEO. IN 
O03 3 dE 
oO” 5 
Oa0 ie 0.0 
Oo 0.0 10 
0. 8584 "Ze hOo7 2.0954 
O20 Or QO.0 
0.0 0.0 O70 
Aa ie 10 
1.0 ie QO.0 
O20 0.0 OF. 0 
Or20 0.0 QO.0 
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(30) ¥ TTdKYS 
J eRgT X 
066 cb b6'S 966 B67 H0°8 
os 00°0 
be 8 
ob 8 
eG 
96 8 


2 I CTT CE ED ES SD Cb lA eh S 


Oey 
(SU) JX QONMOTS INdNI 


(SU) JX 


T egy x 


- Example #2. 


Input sequence xl1(ns) 


Figure J.1 


145 


> ae (SU) # ATdNS 


06 = HL SCS: SHES. 
a a ab'2- 


f'T- 

ob '- 

| (SU) ex 
oe 


bE T 


QE "2 Q xeOt X 
(SU) dX AONUNOTS TMdNI 


Input sequence x2(ns) - Example #2. 


Figure J.2 
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T  ¥eOT X 
06 6 





06 b 


(SU) f TTdHYS 
b6'S 96 'f B6'T 


(SU) €X TONANDGS INANI 


00°0 
BE 'e- 


BE T- 


i 


3 


OE T 


BE? 


(SU) £X 


QO xxQy x 


Input sequence x3(ns) ~ Example #2. 


Figure J.3 
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(5U) # ATEHYS 
1 ¥xOT X 
! oh «=SoO'S:S(<é‘iE:SC*«‘i TSCOC*« ék 
06's fs, 
ag°T 
ct 
69°C 


vfs 


65 6 
(SU) JA QONMDTS TLVLS 


(SU) JA 


¢  #eBT X 


- Example #2. 


State sequence vl(ns) 


Figure J.4 
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(5U) # TANS 
J -xxBT X 
066 cbt ro'G 96°¢ B67 066 
bd '8 
887 


Gut 





£9 § 


AVY he 


Of 6 
(SU) 2h FONANDAS TLYLS 


(SU) gh 


¢ ¥ROT X 


- Example #2. 


State sequence v2(ns) 


Figure J.5 
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(SU) § TTdWYS 
J xeOT X 
066 Cbd bo S 96°¢ 86 7 006 
[eae ene ene ee 008 
48° 
a? 


t9'S 


NIN m 


bf 6 
(SU) €A QONGNDAS TLVLS 


(SU) £4 


¢  eNOT X 


- Example #2. 


State sequence v3(ns) 


Figure J.6 
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(SU) # ATdNYS 
J  xeOT X 
06'6 c6'¢ b6'S 96°¢ 86°) 60 '0 
at 00 '8 
Ob‘ 
62°08 


6T'T 


6o'] 





667 


(SU) TA FNTNDTS INdLNO 


(SU) Th 


G  eNBT X 


- Example #2. 


Output sequence yl(ns) 


Figure J.7 


foe 





Open input file. 










Read N, M, Q. 
Read nstop, xsorce. 


Conduct error checks. 











Call XGEN to generate 
INDUE: xS(1,Nns). 





<lieree = 19° > > 








Write input data 
onto monitor screen. 


TEs G 
<foae > > 


Write input data 
to files STATEO.OUT 


Call ITRATE to compute 
the iterative solution. 





Write results to files: 
STATEQ.OUT and STATEG. OUT. 





Figure J.8 STATEQ.FOR Software Flowchart. 


D2 


Prem 1s — 0, nstop. 


Pa eoter lee.) 


e 
= 


Sade Or. 0 
vs(i,nstl) = 0.0 


>)/For k = 1 


X1 = xi + B(i,k) *xs(k,ns) 


PLHOns ): = wae, 


vs(i,nst+l) = vs(i,ns+1) + A(i,j)*vs(j,ns) 
vs(1,nstl) = vs(i,nstl) + X1 


[pane 
[pox 


ys(l,ns) = ys(l,ns) + xi 


(B) 


Figure J.9 ITRATE Subroutine Flowchart. 
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Appendix K 


The software flowcharts describing the program PLOT- 


DAT.FOR and the subroutines SCALE and GRIDD are included in 


this appendix. Listed below are the variable names used in 


the flowcharts and the corresponding Fortran source code. 


xmax 
xmin 
ymax 
ymin 


valmax 


valmin 


scal 


numplts 


numpts 


alee 


xlabl 


ylabl 


x() 


ve) 


The maximum ordinate value read from the data 
for each plot. 

The minimum ordinate value read from the data 
EOr Cache! oOt, 

The maximum abscissa value read from the data 
for Cach plete. 

The minimum abscissa value read from the data 
FOr  Caciieosie tee 

A dummy variable passed to subroutine SCALE 
containing the maximum value of an array to be 
scaled (1.e., xmax or ymax). 

A dummy variable passed to subroutine SCALE 
containing the minimum value of an array to be 
scaled (1.e., xmin or ymin). 

An integer value that contains the scaling 
value determined by subroutine SCALE. 

The integer value that specifies the number of 
plots to be created. For each plot, the 
parameters listed below must occur in the input 
file. 

The integer value that specifies the number of 
data points to be read from the input file for 
the given plot. 

The character string consisting of up to 40 
characters that comprise the title of the 
Gmapii. 

The character string consisting of Up ~tomm 
characters that comprise the label for the x- 
axis of the graph. 

The character string consisting of up to 14 
characters that comprise the label for the y- 
axis of the graph. 

The array containing the ordinate vanes read 
from the inesuc £mle: 

The array containing the abscissa values read 
from the input file. Each ordinate, abscissa 
pair corresponds to one point to be plotted by 
the program. 
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Open input file. 






Read numplts. 


>|For i = 1, numplts. 
Prompt user for 
hardcopy Y/N ? 





Y 


Prompt user for 
grid Y/N ? ———---——--> @) 


® 





numpts. 
Read title. 
Read xlabl. 
ylabl. 


>{For k = 1, numpts. 
Read x(k), y(K). 


maximum 
minimum 
maximum 
Bininunm 






Call SCALE to determine 
the scaling factor for 
the ordinate values. 


Call SCALE to determine 
the scaling factor for 
the abscissa values. 


(p) 


Scale x() and y(). 












Plot the data by calling 
the appropriate plotting 
library subroutines. 















Does user require 
a hardcopy ? 





< 


Figure K.1 
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Create hardcopy 
printout of screen 
contents. 








PLOTDAT.FOR Software Flowchart. 





Print horizontal dashed lines 
at each major tic mark location. 


Print vertical dashed lines at 
each major tic mark location. 






Figure K.2 GRIDD Subroutine Flowchart. 


LG 


@ 


i1scal = The largest integer power of 10 
occuring in the input array. 


valmin = valmin/(10**iscal) 
valmax = valmax/(10**iscal) 


Ax1s being scaled ? 

















Y 


If valmin and valmax < 0.0 
valmax = 0.0. 


If valmin and valmax > 0.0 
valmin = 0.0. 


If valmin + 0.0 then valmin 
is adjusted to cause a 


buffer space to be included 
below the minimum value to 
be plotted. 





If valmax + 0.0 then valmax 
is adjusted to cause a 

buffer space to be included 
above the maximum value to 
be plotted. 


(D) < 


Figure K.3 SCALE Subroutine Flowchart. 


Sy 


FO OOO OOO) OOO 0 OOO Ore Oe OOOO OOO 2 2 OO) 2 0 OC 6: O70C4:O Cea... a. 


PURPOSE 


Appendix L 


DIGFREQ. FOR VERSION: 2/03/88 


THIS PROGRAM COMPUTES THE FREQUENCY RESPONSE OF 
DISCRETE SYSTEMS. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM THAT CONTROLS THE INPUT/OUTPUT AND THE 
SUBROUTINES dfresp AND coeff. SUBROUTINE dfresp 
COMPUTES THE FREQUENCY RESPONSE OF EACH SYSTEM. 
SUBROUTINE coeff ALLOWS THE USER THE OPTION OF 
GENERATING THE FILTER COEFFICIENTS OF THE SYSTEMS 

TO BE ANALYZED BY WRITING THE APPROPRIATE EQUATIONS. 

IF THE USER ELECTS TO GENERATE THE GOERFFICIENTS BY 
USING THE SUBROUTINE coeff, THE EQUATIONS MUST BE 
WRITTEN INTO THE SUBROUTINE USING STANDARD FORTRAN 77 
STATEMENTS. THE COEFFICIENTS MUST BEY Sif@RED IN THE 
ARRAYS b() AND c() WHICH CORRESPOND RESPECTIVELY TO THE 
NUMERATOR AND DENOMINATOR TERMS OF THE SYSTEM EQUATION. 
THE USER CAN SELECT ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERFACE WITH 
THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT 
DATA HAS BEEN STORED IN THE DEFAULT FILE 'DIGFREQ.IN'. 
IN TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL RUN BY 
USING THE INPUT DATA STORED IN THE FILE 'DIGFREQ.TST'. 
IT IS RECOMMENDED THAT FERST-TIME USERS oELEC! THe iesh 
MODE AND MAKE A TRIAL RUN WITH THE PRESTORED INPUT DATA. 
THE TEST MODE ECHOES THE INPUT DATA ONTO THE MONITOR TO 
ALLOW VERIFICATION OF ITS ACCURACY. THIS PROGRAM WILL 
COMPUTE THE FREQUENCY RESPONSE OF UP TO THREE SYSTEMS. 
FOR EACH SYSTEM, THE USER HAS THE OPTION OF HAVING THE 
GUTPUT EXPRESSED IN DECIBEIS (dB) iheecUlL UL OF iais 
PROGRAM IS STORED IN TABULAR FORM IN THE FILE 
"DIGFREQ.OUT' AND IN A FORM SUITABLE FOR PLOTTING 

IN THE FILE 'DIGFREQO.DAT'. 


KKKKKKRKEKEKKKKEKKKEKKERERERKEKKREK INPUT RR KKK KKK KK KKKKRERKKEKKKKREEER 


THIS PROGRAM ASSUMES THAT EACH DISCRETE SYSTEM IS MODELED BY THE 


BFQUATION: H(z) = num/den WHERE: 
num = 6(0)*2**L + b(1)*z**(lel) + 1... + b(Lel)*z + bi) 
den = c(0)*Z**N + Cc(1)*zZ**(N-1) + ... + C(N=1)*z + C(N) 

L = A NON-NEGATIVE INTEGER, THE DEGREE OF THE NUMERATOR 


POLYNOMIAL. 
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QOA00 OS 0 OO 0 00 0° 0°O'O OOO Ore ere er) cre) cr ea) el ae) eo Cea Oo 


N = A NON-NEGATIVE INTEGER, THE DEGREE OF THE DENOMINATOR 
POLYNOMIAL. 


mn)... .0(L) 
#(0) .+.C(N) 


REAL COEFFICIENTS OF THE NUMERATOR TERMS. 
REAL COEFFICIENTS OF THE DENOMINATOR TERMS. 


THE INPUT PARAMETERS SHOULD BE STORED IN A FILE NAMED 


"DIGFREQ.IN'. 
REQUIRE FORMATTED INPOT. 


ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
PARTICULAR ATTENTION SHOULD BE PAID 


TO THE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DENOTE 'REAL' NUMBERS. THE INPUT PARAMETERS REQUIRED BY THE 
PROGRAM ARE LISTED BELOW. 


NAME TYPE 
numsys INTEGER 
L INTEGER 

N INTEGER 
dsorce CHARACTER 
yscal CHARACTER 
theta0O REAL 
dithta REAL 
numpts INTEGER 
b() REAL, 

Si) REAL 
WHERE : 


RANGE (ARRAYS) 


be 
Ny 0 


“= 

= = 
e e 
= = 


RESERICTICHS 
1 <= numsys <= 3 
0 <= L = 128 
0 <=N <= 128 
ipl OR 1S! 
(SD OR LOG* 


1 <= numpts < 101 
O <= L = 128 
O <=N <= 128 


numsys = THE NUMBER OF DISTINCT SYSTEMS H(z) TO BE ANALYZED. 
THIS INTEGER VALUE MUST OCCUR AT THE TOP OF THE INPUT 
FILE. IT DELINEATES THE NUMBER OF SYSTEMS TO BE READ BY 


THE PROGRAM AND ANALYZED. FOR EACH SYSTEM (1, 


--, Mumsys) 


THE PARAMETERS BELOW MUST APPEAR IN THE INPUT FILE. 


L = AN INTEGER VAWWE SPECIFYING THE DEGREE OF THE NUMERATOR 
POLYNOMIAL. 


N = AN INTEGER VALWE SPECIFYING THE DEGREE OF THE DENOMINATOR 
POLYNOMIAL. 


dsorce = THE CHARACTER STRING 'F' OR 'S'! 


DENOTING WHETHER THE 


SYSTEM COEFFICIENTS ARE TO BE READ FROM THE INPUT FILE (F) 
OR GENERATED (S) THROUGH USE OF THE SUBROUTINE coeff. 


yscal = A CHARACTER STRING SPECIFYING THE DESIRED MAGNITUDE OPTION: 
'STD' WILL PRODUCE STANDARD MAGNITUDE OUTPUT; 
'TOG' WILL PRODUCE MAGNITUDE EXPRESSED IN DECIBELS (dB). 


thetad 


dithta = THE INCREMENT OF THETA (RADIANS). 


io 


THE STARTING VALUE OF THETA (RAD) AS IN Z=EXP(J*THETA) . 


C070 9) Os 99 0) OO Oe) Oe) OO Oe OG) Or) ae 


numpts 


b() 


c() 


NOTE: 


LINE # 


WN 


NOTE 1 
NOTE 2 
NOTE 3 


WHERE : 


= THE NUMBER OF FREQUENCY POINTS FOR WHICH THE OUTPUT IS 
TO BE COME@TED. 


THE NUMERATOR COEFFICIENTS IN ORDER b(0), b(1), .--, b(L). 
IF dsorce = 'F' IS SELECTED THEN THE USER MUST SUPPLY THE 
L+1 NUMERATOR COEFFICIENTS IN THE FILE. IF dsorce = 'S' 
THEN THE USER HAS ELECTED TO GENERATE THE NUMERATOR 
COEFFICIENTS BY WRITING THE APPROPRIATE FORTRAN STATEMENTS 
IN THE SPACE PROVIDED IN SUBROUTINE coeff. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. 


THE DENOMINATOR COEFFICIENTS IN ORDER c(0), c(1), ..-, C(N). 
IF dsorce = 'F' IS SELECTED THEN THE USER MUST SUPPLY THE 
N+1 DENOMINATOR COEFFICIENTS IN THE FILE. IF dsorce = 'S! 
THEN THE USER HAS ELECTED TO GENERATE THE DENOMINATOR 
COEFFICIENTS BY WRITING THE APPROPRIATE FORTRAN STATEMENTS 
IN THE SPACE PROVIDED IN SUBROUTINE coeff. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. 


THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ******** INPUT FORMAT *%%kkexk, 
THE FORM OF THE INPUT DATA FILE IS: 


ENTRIES FORMAT 
numsys vm 
L,N,dsorce, yscal 13 £11713, 521, a) eos 
dlthta, theta0, numpts 2E1OGO 13 
b(k), k=0,1,...,L 6£10.0 
c(k), k=0,1,...,N 6f10.0 
NN = 1 + (L/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER). 
ND = 1+ (N/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER). 


NOTES 1. THE NEXT NN LINES ARE ONLY REQUIRED IF dsorce = 'F'. IF 


dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 
It+1 NUMERATOR COEFFICIENTS IN THE SUBROUTINE coeff. 

THE USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE coeff TO GENERATE THE VALUES FOR b(). 


THE NEXT ND LINES ARE ONLY REQUIRED IF dsorce = 'F'. IF 
dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 
N+1 DENOMINATOR COEFFICIENTS IN THE SUBROUTINE coeff. 
THE USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE coeff TO GENERATE THE VALUES FOR c(). 


FOR numsys > 1 THE FORMAT OF LINES 2... IS REPEATED. 
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MQVAAANAN 


4. THE FORMAT f10.0 USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 
3146.2 = 3.1462E+03) . 


CHAKRA KKKAKAKRKAREKRAEAERRRARRERE RE OUTPUT RK KKK K HAKKAR KAKERKE KKK 


OO Ora Oa 


THE OUTPUT DATA CREATED BY THE PROGRAM IS STORED IN TABULAR FORM 
IN THE FILE 'DIGFREQ.OUT'. ADDITIONALLY, THE OUTPUT DATA IS 
WRITTEN INTO THE FILE 'DIGFREQ.DAT' TO FACILITATE PLOTTING BY 

A SEPARATE, USER SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 
Peter b@. OAT’ IS: e12.6, 2x, e12.6. THE FIRST ENTRY CORRESPONDS 
TO THE ORDINATE VALUE (THETA) AND THE SECOND ENTRY THE ABSCISSA 
VALUE (MAGNITUDE OR PHASE). ADDITIONAL HEADER INFORMATION IS 
WRITTEN INTO THE DATA FILE TO ALLOW FOR CONTROL AND LABELING OF 
Beene rlor. 


CHAKA K KKK KAKK AIK KARE RE KRHA EXAMPLE RRR RK KKK KKK KAKKRKKKRKKKKEKKEKEK 


OO OOOO OO O07 OOOO OO Oa a a rere OC 


THE INPUT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED IN 
THE SAMPLE INPUT FILE 'DIGFREQ.TST’ AND CAN BE USED FOR A TRIAL 
RUN IN THE TEST MODE. 


SeeteM: H(z)=z/(z-0.5) 

GOAL: TO OBTAIN THE FREQUENCY RESPONSE FOR THIS SYSTEM FROM 
THETA = 0.0 TO THETA = 3.14159 (PI RADIANS) IN STEPS 
OF dlthta = PI/10.0 


fener SYSTEM DESCRIBED ABOVE THE INPUT FILE IS: 


M 

O01 001 i STD 
weol4is9 0.0 onal 

2 O Oz0 

ir. O a's 


THE RESULTING OUTPUT DATA FILE: 'DIGFREQ.OUT' IS: 
INPUT DATA FOR SYSTEM # 1 


INPUT DATA SOURCEFILE: DIGFREQ.TST 


DEGREE OF NUMERATOR = i 

DEGREE OF DENOMINATOR = 1 

dsorce = F 

NUMBER OF FREQUENCY POINTS = 11 MAGNITUDE OPTION = STD 
STARTING VALUE OF THETA = .OQOQOQQOQOE+0O0O 

INCREMENT OF THETA == .314159E+00 


ei 


THE NUMERATOR COEFFICIENTS b(C),b(1)...b(L) ARE 


» LOOOE TGs . OOOOE+00 


THE DENOMINATOR COEFFICIENTS c(0),c(1)...c(N) ARE 


« LOOOET Gil = 5000CE7.00 


OUTPUT DATA FOR SYSTEM # 1 


THETA MAGNITUDE PHASE 
(RADIANS) (DEGREES) 
. 000000E+00 . 200000E+01 . 000000E+00 
.314159E+00 .182897E+01 .164149E+02 
.628318E+00 .150588E+01 . 262677E+02 
.942477E+00 .122886E+01 .29807E+02 
.125664E+01 .103088E+01 .293546E+02 
.157080E+01 .894428E+00 .265651E+02 
.188495E+01 . 800894E+00 . 223862E+02 
.219911E+01 .737654E+00 .173608E+02 
.251327E+01 . 696900E+00 .118186E+02 
.282743E+01 .674038E+00 .597793E+01 
.314159E+01 . 666667E+00 .484184E-04 


wanna n= = === END OF RUN, SYSTEM # 1 ------------- 


FOR ILLUSTRATIVE PURPOSES THE COEFFICIENTS b() AND e() COUED 
HAVE BEEN GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE 
APPROPRIATE FORTRAN STATEMENTS INTO SUBROUTINE coeff. THE 
STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN INTO 
THE SUBROUTINE BUT ARE ‘COMMENTED OUT’. 


Q700.0°0 000 OHO0000 00060 0°40 O64 G6 Oe GG 2 ere ere. 
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character infile*12, mode*l, ylabl*13, dsorce*1, yscal*3 
real mn(101), ph(101), thetav(101), c(0:128), b(0:128) 


C PROMPY USER FOR MODE: BATCH OR TEST. 


write(*,1115) 

read(*,1117) mode 

if ((mode.eq. 'Y') .or. (mode.eq.'y')) then 
mode = 'Y' 
write (*,1118) 
read(*,1119) infile 

else 


liezZ 


infile = 'DIGFREQ.IN' 
endif 


C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 


open (unit=1, file=infile,status='old', iostat=1err, err=999) 
open (unit=2, file='DIGFREQ.OUT') 
open (unit=3, file='DIGFREQ.DAT') 


C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 


read(1,1000) numsys 

numplts = numsys*2 

write(3,2000) numplts 

if ((numsys.1t.1).or. (numsys.gt.3)) then 
write(*,1122) numsys 
stop 'Error, numsys must be in the range: 1 <= numsys < 3.' 
endif 


do 10 nsys=1, numsys 
data mh/101*0.0/, ph/101*0.0/, thetav/101*0.0/ 
data b/129*0.0/, c/129*0.0/ 


read(1,1001) L, N, dsorce, yscal 
read(1,1002) dithta, theta0O, numpts 


fea et. 0) .or.(L.gt.128)) then 

write(*,1124) nsys, L 

stop 'Error, L must be in the range: 0 <= L <= 128.' 
elseif ((N.1t.0) .or. (N.gt.128)) then 

write(*,1125) nsys, N 

stop 'Error, N must be in the range: 0 <= N <= 128.' 
endif 


if ((dsorce.eq.'F') .or. (dsorce.eq.'f')) then 


dsorce = 'F'! 
elseif ((dsorce.eq.'S').or. (dsorce.eq.'s')) then 

dsorce = 'S' 
else 

write(*,1018) dsorce 

stop 'The allowed values for dsorce are: ''S'' or ''F!'!.! 
endif 


if ((numpts.1t.1) .or. (numpts.gt.101)) then 

write(*,1127) nsys, numpts 

stop ‘Error, numpts must be in the range: 1 <= numpts <= 101.' 
endif 


if( (yscal.eq.'STD') .or. (yscal.eq.'std')) then 
yscal = 'STD' 
ylabl = ' MAGNITUDE ' 

elseif ((yscal.eq. 'LOG').or. (yscal.eq.'log')) then 
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yscal = 'IOG' 
ylabl = 'MAGNITUDE (dB) ' 
else 


write(*,1128) yscal 
stop 'Error, yscal must be the string: ''LOG'' or ''STD''.' 
endif 


C FOR dsorce = 'F' READ THE COEFFICIENTS b() AND c() FROM THE INPUT 
C FILE. FOR dsorce = 'S' CALL coeff TO GENERATE THE COEFFICIENTS. 


if (dsorce.eg.'F') then 
read(1,1003) (b(k) ,kK=0,L) 
read(1,1003) (c(k) ,kK=0,N) 
else 
call coeff (L,N,nsys,b,c) 
endif 


C WRIZt .NPUT DATA INTO THE OUTPUT FILE: DIGFREQ.OUT. 


write(2,1008) nsys 
write(2,1010) infile 
write(2,1110) L 
write(2,1111) N 
write(2,1019) dsorce 
write(2,1112) numpts, yscal 
write(2,1113) theta0d 
write(2,1114) dlthta 
write (2,1004) 
write(2,1005) (b(k) ,k=0,L) 
write (2,1006) 
write(2,1005) (c(k),k=0,N) 
write(2,1009) nsys 
write(2,1126) yiabl 
write(2,1007) 


C FOR TEST MODE ECHO ALL INPUTS ONTO MONITOR (UNIT = *). 


then 
nsys, infile 


if (mode.eq. 'Y') 
Wielee* dieG) 
write(*,1110) 
write(*,1111) N 
write(*,1019) dsorce 
write(*,1112) numpts, yscal 
Wiciee 1d ise echoes 
Welter =,1a14) -dithta 
write(*,1004) 
write(*, 1005) 
write (*, 1006) 
write(*, 1005) (c(K) , kK=0,N) 
write(*,1123) nsys 
pause 'END OF RUN, STRIKE <CR> WHEN READY TO CONTINUE. ' 
endif 


(b(k) ,k=0,L) 
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C CALL dfresp TO COMPUTE THE FREQUENCY RESPONSE. 
call dfresp(b,c,mh,ph,L,N, thetad,dlthta, thetav,numpts, yscal) 
C WRITE RESULTS INTO OUTPUT FILE: DIGFREQ.DAT. 


write(3,2001) numpts 
write(3,*) 'MAGNITUDE RESPONSE' 
write(3,*) 'THETA (rad)' 
write(3,2003) ylabl 
do 55 np=1, numpts 
write(3,2010) thetav(np), mh(np) 
> continue 


write(3,2001) numpts 
write(3,*) 'PHASE RESPONSE' 
write(3,*) 'THETA (rad)' 
write(3,2003) ' PHASE (DEG) ' 
do 56 np=1, numpts 
write(3,2010) thetav(np), ph(np) 
56 continue 


feevrwit RESULTS INTO OUTPUT FILE: DIGFREQ.OUT. 


do 150 np=1, numpts 
write(2,1013) thetav(np), mh(np), ph(np) 
150 continue 
write(2,1123) nsys 


no continue 


write (*,1121) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(ierr.gt.0) then 
write(*,1116) ierr 
endif 


Cree RAKEAKKKEK TNPUT FORMAT eee RRKKKKKKKKK 


1000 format(il) 

ieee format(i3,t11,i3,t21,al,¢31,a3) 
1002. format (2f10.0, i3) 

1003 format(6f10.0) 


CRHERKEKKKRREREKRREREKRKKRKEREKRRRRERERRRERERERREREER 


1004 format(t4, 'THE NUMERATOR COEFFICIENTS b(0),b(1)...b(L) ARE: ',/) 
1005 format(6(2X,e11.4) ,//) 


eS 


1006 


1007 
1008 
1009 
LOI) 
Cis 
1018 
Lots 
1110 
de 
tA 


ans 
1114 
aS 


EG 


LTT 
1118 


tia 
1120 
dees 


da 2 
1123 
1124 


1125 


1126 
tee) 
i126 
2000 
2001 
2003 
2010 


Ce ® 


PURPOSE ; 


Oformat (//,t4, "THE DENOMINATOR COEFFICIENTS c(0),c(1)...c(N)', 
1' ARE: ',/) 

format (t6, ' (RADIANS) ',t38,' (DEGREES) ',/) 

format (t16,' INPUT DATA FOR SYSTEM # ',11,//) 

format (///,t16,' OUTPUT DATA FOR SYSTEM # ',i1,/) 

format (t4,' INPUT DATA SOURCEFILE: ',a12) 

format (t4,3(e12.6,4x) ) 

format (1x, 'dsorce = ',al,2x,'Error, illegal value for dsorce.') 

format(t4,'dsorce = ',al) 

format (t4, 'DEGREE OF NUMERATOR = ',13) 

format (t4,'DEGREE OF DENOMINATOR = ',13) 
Oformat (t4, "NUMBER OF FREQUENCY POINTS = ',i3,t39, 'MAGNITUDE', 
1' OPTION = ',a3) 

format (t4, 'STARTING VALUE OF THETA = ',e12.6) 

format (t4, ‘INCREMENT OF THETA = ',e12.6,/) 
Oformat(1lx,'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 

1' MODE ? (V/10) GR ton) 
Oform.t(,//,1x, "ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ', 
1//,1X,'ERROR CODE:',14,/////) 

format (al) 
Oformat (/////,1x,'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1' BY <CR>.',/,' IF YOU DESIRE TO MAKE A TEST RUN USING THE', 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: DIGFREO.TST', 
3! TYPE: DIGFREQ.TST <CR>',/,' FILENAME: ',\,) 

format (al2) 

format (////,t4,'SYSTEM # ',i1,' INPUT DATA SOURCEFILE: ',al2) 
Oformat (//,t4, 'TABULAR OUTPUT DATA IS STORED IN FILE: DIGFREQ.OUT', 
1/,t4, 'PLOTTING DATA IS STORED IN FILE: DIGFREQ.DAT. ') 

format (////// ,t2,'The value of numsys is: ',11,'.') 

format (/,1x,13('-'),' END OF RUN, SYSTEM # ',i1,2x,13('-'),//) 
Oformat (//////,t2,'The degree(L) of the numerator for system ', 
1 ge nls Cas. ee i 
Oformat(//////,t2,'The degree(N) of the denominator for system' 
et ee ie ee Ne cereal 

format (///,t8, 'THETA',t21,a13,t40, 'PHASE') 

format (//////,t2,'The value of numpts for system ',i1,' is: ',13) 

format (/////,t2,'The value of yscal is: ',a3,'.') 

format (il) 

format (13) 

format (al13) 

format (el2.6,2x,e12.6) 


end 


SUBROUTINE: dfresp 


THIS SUBROUTINE COMPUTES THE FREQUENCY RESPONSE OF 
THE SYSTEM. ALL FREQUENCY CALCULATIONS ARE IN RADIANS, 
HOWEVER THE OUTPUT IS CONVERTED TO DEGREES. 
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C THE OUTPUT FORMAT FOR EACH FREQUENCY INCREMENT IS: 
c MAGNITUDE (M) PHASE (P) AS IN: M*EXP(J*P). 


subroutine dfresp(b,c,mh,ph,L,N, theta0,dlthta, thetav, numpts, yscal) 
real mh(numpts), ph(numpts), thetav(numpts), imz, rez 

mecuee(O:L), c(O:N) 

character yscal*3 

complex z, den, nun, h, ci 


C DEFINE CONSTANTS. 


4.0*atan(1.0) 
(0, 0.0) 


pi 
ci 


C ITERATE FROM theta0O, IN INCREMENTS OF dlthta. 


do 100 np=1, numpts 
num = ci*b(0) 
den = ci*c(0) 
thetav (np) = thetaO + (np-1) *dlthta 
rez = cos(thetav (np) ) 
imz = sin(thetav (np) ) 
Z = cmplx(rez,imz) 


C CALCULATE NUMERATOR FOR GIVEN VALUE OF THETA, IF L > QO. 


if(L.gt.0) then 
do 50 k=1, L 
num = z*num + ci*b(k) 
50 continue 
endif 


C CALCULATE DENOMINATOR FOR GIVEN VALUE OF THETA, IF N > O. 


if (N.gt.0) then 
do 70 k=1, N 
den = z*den + ci*c(k) 
70 continue 
endif 
h = nun/den 


C CONVERT COMPLEX VAIUE 'h' INTO MAGNITUDE(mh) AND PHASE(ph) TERMS. 
C IF yscal = 'LOG' THEN CONVERT MAGNITUDE TO DECIBEIS (dB). 
C DIVIDE BY ZERO AVOIDED BY 'if' STATEMENTS. 


mn(np) = cabs (h) 
if (yscal.eq.'1OG') then 
if (mh (np) .gt.0.00001) then 
mi(np) = 20.0*1log10(mhn(np) ) 


nG7 


else 
mh(np) = -100.0 
endif 
endif 


if (abs (real (h)).1t.1.0e-15) then 

if (abs (aimag(h)).le.1.0e-15) ph(np)=0.0 

if (aimag(h).gt.1.0e-15) ph(np)=90.0 

if (aimag(h) .1t.-1.0e-15) ph(np)=-90.0 
else 

ph(np) = (180.0/pi) *atan2 (aimag(h) , real (h) ) 
endif 


100 continue 


return 
end 


Cc SUBROUTINE: coeff 


C PURPOSE: ‘THIS SUBROUTINE ALLOWS THE USER TO GENERATE THE 

G NUMERATOR AND DENOMINATOR COEFFICIENTS THAT DESCRIBE 
C FACH SYSTEM TO BE ANALYZED. IF dsorce = 'S' THEN 

S THE MAIN PROGRAM WILL CALL THIS SUBROUTINE. 


subroutine coeff(L,N,nsys,b,c) 
real b(0: Lb) -e( Oa) 


pi = 4.0*atan(1.0) 
el=L 
en = N 


CEEKREKERKREKREKKERRRRRRREKEKEKEREREKEKEKEKEEEKREKKEKKEKRERKEREKEREKRERREKERRRRRERRERREERE 


DEVELOP THE EQUATIONS TO GENERATE VALUES FOR THE ARRAYS b() AND c() 
IN THIS SPACE. THE STATEMENTS TYPED IN MUST FOLLOW STANDARD 
FORTRAN 77 RULES AND MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: 
SIN(), COS(), ABS()... AN EXAMPLE IS SHOWN BELOW. NOTE THAT THE 
VALUE nsys CAN BE USED TO DISTINGUISH BETWEEN SYSTEMS IF MORE THAN 
ONE SYSTEM (numsys > 1) IS TO BE ANALYZED. 


*ek EXAMPLE *** 


OOO OOO O4-@ 


168 


c if(nsys.eq.1) then 

E do 2 i=0, L 

G b(1) = cos(i*pi/(2.0*el) ) 

e 2 continue 

€ do 3 1=0, N 

E c(1) = cos(2.0*1*pi/ (3.0*en) ) 
© 3 continue 

€ endif 


CEKKEKEEREERERKEERREERERERERERKEERERRRRERKREREREKERERERERREREREREKRKREKEREREERE 


return 
end 


Tog 
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PURPOSE: 


ANLGFREQ. FOR VERSION 2/03/88 


THIS PROGRAM COMPUTES THE FREQUENCY RESPONSE OF 
CONTINUOUS-TIME SYSTEMS. THE PROGRAM CONSISTS OF A 
MAIN PROGRAM THAT CONTROLS THE INPUT/OUTPUT AND THE 
SUBROUTINE afresp THAT COMPUTES THE FREQUENCY 
RESPONSE. THE USER CAN SELECT ONE OF TWO OPERATING 
MODES: BATCH OR TEST. IN BATCH MODE THE 

AMOUNT OF INTERFACE WITH THE USER IS MINIMIZED AND 

IT IS ASSUMED THAT THE INPUT DATA HAS BEEN STORED IN 
THE DEFAULT FILE ‘ANLGFREO.IN'. IN THE TEST 

MODE THE USER IS PROMPTED FOR THE NAME OF THE INFUT 
FILE OR HAS THE OPTION TO PERFORM A TRIAL RON BY 
USING THE INPUT DATA STORED IN THE FILE ‘ANIGFREQ.IST'. 
IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT THE 
TEST MODE AND MAKE A TRIAL RUN WITH THE PRE- 

STORED INPUT DATA. THE TEST MODE ECHOES THE 

INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF 
ITS ACCURACY. THIS PROGRAM WILL COMPUTE THE FREQUENCY 
RESPONSE OF UP TO THREE SYSTEMS. FOR EACH SYSTEM, THE 
USER HAS THE OPTION OF HAVING THE OUTPUT EXPRESSED IN 
DECIBELS (dB). THE OUTPUT OF THIS PROGRAM IS STORED IN 
TABULAR FORM IN THE FILE 'ANLGFREQ.OUT' AND IN A FORM 
SUITABLE FOR PLOTTING IN THE FILE 'ANLGFREQ.DAT'. 


CEERREKRKERERERKRERRERKRKRRERKREKKEEKRE INPUT KEKEKKRKREREEKRKRRRERRRRRRRERERERERER 


Or"). O75 07@ 050-0: Oe 210 OOO 


THIS PROGRAM ASSUMES THAT RACH CONTINUOUS-TIME SYSTEM IS MODELED 
BY THE EQUATION: H(s) = num/den WHERE: 


num = 6(0) *s**L + b(1)*s**(L-1) + ... + b(Ie-1)*s + b(L) 
den = a(0)*S**N + a(1)*S**(N-1) + ... + a(N-1)*S + a(N) 
L = A NON-NEGATIVE INTEGER, THE DEGREE OF THE NUMERATOR 
POLYNOMIAL. 
N = A NON-NEGATIVE INTEGER, THE DEGREE OF THE DENOMINATOR 
POLYNOMIAL. 
b(0)...b(L) = REAL COEFFICIENTS OF THE NUMERATOR TERMS. 
a(0O)...a(N) = REAL COEFFICIENTS OF THE DENOMINATOR TERMS. 


THE INPUT PARAMETERS SHOULD BE STORED IN A FILE NAMED 
"ANLGFREQ.IN'. ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE PAID 
TO THE FORMATS, ESPECIALLY THE USE OF THe DEG rom (ie 
DENOTE 'REAL' NUMBERS. THE INPUT PARAMETERS REQUIRED BY THE 
PROGRAM ARE LISTED BELOW. 


iz 0 
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NAME TYPE RANGE (ARRAYS) RESTRICTIONS 
numsys INTEGER 1 <= numsys <= 3 
L INTEGER 0 <= L <= 128 
N INTEGER O <=N <= 128 
omegaQ REAL, 
dlomga REAL, 
numpts INTEGER 1 <= numpts <=101 
yscal CHARACTER Pow OR). 10G" 
b() REAL OF 2s O <= L <= 128 
a() REAL Of ee? eas O <=N <= 128 
WHERE : 
numsys = THE NUMBER OF DISTINCT SYSTEMS H(s) TO BE ANALYZED. 
THIS INTEGER VALUE MUST OCCUR AT THE TOP OF THE INPUT 
Piliee fr DELINEARES THE NUMBER OF SYSTEMS TO BE READ BY 
THE PROGRAM AND ANALYZED. FOR EACH SYSTEM (1, ., numsys) 
THE PARAMETERS BELOW MOST APPEAR IN THE INPUT FILE. 
L = THE DEGREE OF THE NUMERATOR POLYNOMIAL. 
N = THE DEGREE OF THE DENOMINATOR POLYNOMIAL. 
omegaO = THE STARTING VALUE OF OMEGA (RAD/S) AS IN S3J*OMEGA. 
dlomga = THE INCREMENT OF OMEGA (RAD/S). 
numpts = THE NUMBER OF FREQUENCY POINTS FOR WHICH THE OUTPUT IS TO 
BE COMPUTED. 
yscal = A CHARACTER STRING SPECIFYING THE DESIRED MAGNITUDE OPTION: 
'STD' WILL PRODUCE STANDARD MAGNITUDE OUTPUT; 
'LOG' WILL PRODUCE MAGNITUDE EXPRESSED IN DECIBELS (dB). 
b(K) = THE NUMERATOR COEFFICIENTS IN ORDER b(0), b(1), OE) 
a(kK) = THE DENOMINATOR COEFFICIENTS IN ORDER a(0), a(1), ma) 
NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ******** JTNPUT FORMAT 9 *xx*xx*x, 
THE FORM OF THE INFUT DATA FILE IS: 
LINE # ENTRIES FORMAT 
al numsys Heh 
2 L,N,numpts, yscal Homeless to 1 13 esl as 
Ss dlomga , omega0O AEM) 
4...4+NN OS) KO 5 perces 6rl0 20 
5+NN. . .5+NN+N ao 7 k—O, aN 6f10.0 
* 


a7 


COO. 3) OO) @ 


af 


NN 
ND 


L/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER. 
N/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER. 


FOR numsys > 1 THE FORMAT OF LINES 2... IS REPEATED. 


THE FORMAT £10.0 USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 
3146.2 = 3.1462E+03). 


CEBERRRRRKERRRRRERRREKRERRREERREEE OUTPUT BRERKEKKRERERKRRERERRRERERERERERERE 
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THE OUTPUT DATA CREATED BY THE PROGRAM IS STORED IN TABULAR FORM 
IN THE FILE 'ANIGFREQ.OUT'. ADDITIONALLY, THE OUTPUT DATA IS 
WRITTEN INTO THE FILE 'ANLGFREQ.DAT' TO FACTLIVATE PLOTTING BY A 
SEPARATE, USER SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 
"ANLGFREO.DAT' IS: e12.6, 2x, el2-6. THE FIRST ENTRY CORRESECRES 
TO THE ORDINATE VALUE (OMEGA) AND THE SECOND ENTRY THE ABSCISSA 
VALUE (MAGNITUDE OR PHASE). ADDITIONAL HEADER INFORMATION IS 
WRITTEN INTO THE DATA FILE TO ALLOW FOR CONTROL AND LABELING OF 
FACH PLO: 


CEBRRRRKEKRERKKEREKRERERERERERER EXAMPLE KREKKERKEREKRKRERERERERKRRRERRRERERE 
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THE INPUT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED IN 
THE SAMPLE INPUT FILE 'ANLGFREQ.TST' AND CAN BE USED FOR A TRIAL 
RUN IN THE TEST MODE. 


SYSTEM: 


GOAL: 


H(s) = 10.0*s/(s**2 + 6.0*5 + 5.0) 


TO OBTAIN THE FREQUENCY RESPONSE FOR THIS SYSTEM FROM 
OMEGA = 0.0 TO OMEGA = 4.0 (RAD/S) IN STEPS OF 
dlomga = 0.2 (RAD/S). 


POR THE SYSTEM DESCRIBED ABOVE THE INPUT FILE IS: 


O01 
OO1 
az 
tO.” 
0 


O21 STD 


OO Ga 
BN Se ET a 


ae 


ily 


fae RESULTING OUTPUT DATA FILE (‘ANLGFREQ.OUT') IS: 
INPUT DATA FOR SYSTEM # 1 


INPUT DATA SOURCEFILE: ANLGFREOQ. TST 
DEGREE OF NUMERATOR = 1 

DEGREE OF DENOMINATOR = 2 

NUMBER OF FREQUENCY POINTS = 21 
STARTING VALUE OF OMEGA = .OOQQ00E+00 
INCREMENT OF OMEGA = .200000E+00 


MAGNITUDE OPTION = STD 


THE NUMERATOR COEFFICIENTS b(0),b(1)...b(L) ARE: 


- LOOOE+02 - 0000E+00 


THE DENOMINATOR COEFFICIENTS a(0),a(1)...a(N) ARE: 


NONONA0CTN N00 N08 10000 000 OO Oe 4 OO Oe oO 2) Ce OO ee Ore ee eee er en) 0) 


END OF RUN, SYSTEM # 1 


. 1000E+01 . 6000E+01 .5000E+01 
OUTPUT DATA FOR SYSTEM # 1 
OMEGA MAGNITUDE PHASE 
(rad/s) (DEGREES) 
. OO0000E+00 . OOOO00E+00 . OO0000E+00 
. 200000E+00 .391919E+00 .763995E+02 
. 400000E+00 .740416E+00 .636247E+02 
. 600000E+00 .102166E+01 .521935E+02 
. 800000E+00 .123370E+01 .422499E+02 
. 100000E+01 .138675E+01 .336901E+02 
.120000E+01 .149402F+01 . 263098E+02 
. 140000E+01 .156719E+01 .198954E+02 
. 160000E+01 .161531E+01 .142607E+02 
. 180000E+01 .164497E+01 .925573E+01 
.200000E+01 .166091E+01 .476364E+01 
.220000E+01 .166654E+01 .694459E+00 
.240000E+01 .166435E+01 —.302114F+01 
.260000E+01 .165616E+01  —-.643692E+01 
.280000E+01 .164335E+01  -.959500E+01 
.300000E+01 .162698E+O1 -.125288E+02 
.320000E+01 .160786E+01 —-.152652E+02 
.340000E+01 .158665E+01  -.178262E+02 
.360000E+01 .156386E+O1 -.202298E+02 
. 380000E+01 .153990E+O1 —-.224913E+02 
.400000E+01 .151511E+01  § -.246236E+02 


ine 
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character infile*12, mode*1, ylabl*13, yscal*3 
real mh(101), ph(101), omegav(101), a(0:128), b(0:128) 


PROMPT USER FOR MODE: BATCH OR TEST. 


write (*,1115) 
read(*,1117) mode 
if ( (mode.eq. 'Y') .or. (mode.eq.'y')) then 
mode = 'y' 
write (*,1118) 
read(*,1119) infile 
else 
infile = 'ANIGFREQ.IN' 
endif 


UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFDOED AS OUTPUT FILES. 


open (unit=1, file=infile,status='old',iostat=lerr, err=999) 
open (unit=2, file='ANLGFREQ.OUT') 
open (unit=3 , file='ANLGFREQ.DAT') 


READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 


read(1,1000) numsys 


numplts = numsys*2 
write(3,2000) numplts 


if ((numsys.1t.1).or. (numsys.gt.3)) then 

write(*,1122) numsys 

stop 'Error, numsys must be in the range: 1 <= numsys <= 3.' 
endif 


do 10 nsys=1, numsys 


data mn/101*0.0/, ph/101*0.0/, omegav/101*0.0/ 
data’ a/129*0.07 , 7 129-0707 


read(1,1001) L, N, numpts, yscal 
read(1,1002) dlomga, omega0 


if((L.1t.0) .or. (L.g&.128))) chem 

write(*,1124) nsys, L 

stop ‘Error, L must be in the range: 0 <= L <= 128.' 
elseif((N.1t.0) .or. (N.gt.128)) then 

write(*,1125) nsys, N 

stop ‘Error, N must be in the range: 0 <=N <= 128.' 
endif 
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me((numpts.lt:1) .or. (numpts.gt.101)) then 

write(*,1127) nsys, numpts 

stop ‘Error, numpts must be in the range: 0O <= numpts <= 101.' 
endif 


if((yscal.eq. 'STD') .or. (yscal.eq.'std')) then 
yscal = 'STD' 
ylabl = ' MAGNITUDE | 
elseif((yscal.eq.'LOG').or. (yscal.eq.'log')) then 
yscal = 'LOG' 
ylabl = 'MAGNITUDE(GB) ' 
else 
write(*,1128) yscal 
stop 'Error, yscal must be the string: ''LOG'' or ''STD!'.' 
endif 


SeeceeD THE SYSTEM COEFFICIENTS b() AND a(). 


read(1,1003) (b(k) ,K=0,L) 
read(1,1003) (a(k) ,K=0,N) 


C WRITE THE INPUT PARAMETERS INTO OUTPUT FILE: ANLGFREQ.OUT. 


write(2,1008 
write (2,1010 
write (2,1110 
write(2,1111 
write(2,1112) numpts, yscal 
write(2,1113) omegad 


) nsys 

) 

) 

) 

) 
write(2,1114) dlomga 

) 

) 

) 

) 

) 

) 


infile 
L 
N 


write (2,1004 
write (2,1005 
write(2,1006 
write(2,1005 
write(2,1009 
write (2,1126 
write (2,1007) 


(6(k) ,k=0,L) 


(a(k) ,kK=0,N) 
nsys 
ylabl 


C FOR TEST MODE ECHO ALL INPUTS ONTO MONITOR (UNIT = *). 


1f (mode.eq. 'Y' 
write(*,1120 
write (*,1110 
write(*,1111 
write(*,1112) numpts, yscal 
write(*,1113) omegad 


) then 

) 

) 

) 

) 
write(*,1114) dlomga 

) 

) 

) 

) 

) 


nsys, infile 
L 
N 


write(*,1004 
write (*,1005 
write (*,1006 
write (*,1005 
write(*,1123 


(b(K) ,k=0,L) 


(a(K) ,K=0,N) 
nsys 
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pause 'END OF RUN, STRIKE <CR> WHEN READY TO CONTINUE' 
endif 


C CALL afresp TO COMPUTE FREQUENCY RESPONSE. 
call afresp(b,a,mh,ph,L,N,omega0,dlomga,omegav, numpts, yscal) 
C WRITE RESULTS INTO OUTPUT FILE: ANLGFREQ.DAT. 


write(3,2001) numpts 
write(3,*) 'MAGNITUDE RESPONSE! 
write(3,*) 'OMEGA(rad/s) '! 
write(3,2003) ylabl 
do 55 np = 1, nunpts 
write(3,2010) omegav(np), mh(np) 
55 continue 


write(3,2001) numpts 
write(3,*) 'PHASE RESPONSE! 
write(3,*) 'OMEGA(rad/s) ' 
write(3,2003) ' PHASE (DEG) ' 
do 56 np = 1, nunmpts 
write(3,2010) omegav(np), ph(np) 
56 continue 


C WRITE RESULTS INTO OUTPUT FILE: ANLGFREQ.OUT. 


do 150 np=1, nunmpts 
write(2,1013) omegav(np), mh(np), ph(np) 
150 continue 
write(2,1123) nsys 


10 continue 


write (*,1121) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


1f(lerr.gt.0) then 
write(*,1116) ierr 
endif 


Co RKKKKKKKKKKK TNPUT FORMAT xx xxxkKKKKKKK 


1000 format(i3) 

1001. formats, cile 137e21 13, esi as, 
1002 format(2f10.0) 

E003 ‘fermac(e(ile.o), 
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1004 
1005 
1006 


1007 
1008 
1009 
1010 
1013 
Le 
er 1 
ae 2 


ial 3 
1114 
aaLS 


DES 


Bel 7 
PS 


m9 
a2 © 
2 1 


1122 
aa23 
1124 


ie 


1126 
27 
28 
2000 
2001 
2003 
2010 


format (t4,'THE NUMERATOR COEFFICIENTS b(0),6(1)...b(L) ARE:',/) 
format (6(2X,e11.4) ,//) 
Oformat(//,t4,'THE DENOMINATOR COEFFICIENTS a(0),a(1)...a(N)', 
1' ARE:', /) 

format (t8, ' (rad/s) ',24x,' (DEGREES) ', /) 

format(t16,' INPUT DATA FOR SYSTEM # ',i1,//) 

format (///,t16,' OUTPUT DATA FOR SYSTEM # ',i1,/) 

format(t4, 'INPUT DATA SOURCEFILE: ',al12) 

format (t4,3(e12.6,4x) ) 

format (t4, 'DEGREE OF NUMERATOR = ',13) 

format (t4, 'DEGREE OF DENOMINATOR = ',13) 
Oformat(t4, 'NUMBER OF FREQUENCY POINTS = ',13,t40, 'MAGNITUDE', 
1' OPTION = ',a3) 

format (t4, 'STARTING VALUE OF OMEGA = ',e12.6) 

format (t4, 'INCREMENT OF OMEGA = ',e12.6,/) 
Oformat(1x,'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 

1' MODE ? (Y/N) <CR> : ',\,) 
Oformat (///,1x,'ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ', 
1//,1X, 'ERROR CODE:',14,/////) 

format (al) 
Oformat (/////,1x,'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
foc <ck>.',/,' TF YOU DESIRE TO MAKE A TEST RUN USING THE', 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: ANIGFREQ.TST', 
2 TYPE: ANLGFREQO.TST <CR>',/,' FILENAME: ',\,) 

format (al2) 

format(////,t4,'SYSTEM # ',11,' INPUT DATA SOURCEFILE: ',al2) 
Oformat (/,t4, 'TABULAR OUTPUT DATA IS STORED IN FILE: ANLGFREQ.OUT' 
1,/,¢4,'PLOTTING DATA IS STORED IN FILE: ANLGFREQ.DAT') 

format (//////,t2,'The value of numsys is: ',11,'.') 

format (/,1x,13('-'),' END OF RUN, SYSTEM #',1i1,2x,13('-'),//) 
Oformat (//////,t2,'The degree(L) of the numerator for system ', 
Meaeewl,' 1s ; Lb = ',13,'.") 
Oformat (//////,t2,'The degree(N) of the denominator for system ', 
me il,' is : N= ',i3,'.') 

format (///,t8, 'OMEGA' ,t21,a13,t40, 'PHASE') 

format (//////,t2,'The value of numpts for system ',11,' is: ',13) 

format (//////,t2,'The value of yscal is: ',a3,'.') 

format (11) 

format (13) 

format (al3) 

format (e12.6,2x,e12.6) 


end 
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ec SUBROUTINE: afresp 


PURPOSE: ‘THIS SUBROUTINE COMPUTES THE FREQUENCY RESPONSE OF 
THE SYSTEM. ALL FREQUENCY CALCULATIONS ARE IN RADIANS, 
HOWEVER THE OUTPUT IS CONVERTED TO DEGREES. 
THE OUTPUT FORMAT FOR EACH FREQUENCY INCREMENT IS: 
MAGNITUDE (M) PHASE (P) AS IN: M*EXP(J*P). 


OO) 627) 


Subroutine afresp(b,a,mh,ph,L,N,omega0,dlomga,omegav, numpts, yscal) 


real mhn(numpts), ph(numpts), omegav(numpts) 
real b(0:L), a(O:N), ims, res 

character yscal*3 

complex s, den, nun, h, cl 


C DEFINE CONSTANTS. 


el 
ot 


(OOH) 
4.0*atan(1.0) 


C ITERATE FROM omegaO, IN INCREMENTS OF dlomga. 


do 100 np=1, nunpts 

num = ci*b(0) 

den = ci*a(0) 

omegav (np) = omegaO + (np-1) *dlomga 
res = 0.0 

ims = omegav (np) 

S = cmplx(res, ims) 


C CALCULATE NUMERATOR FOR GIVEN VALUE OF OMEGA, IF L > O. 


it (ege 0 meeren 
do 50 k=1, L 
num = s*num + ci*b(k) 
50 continue 
endif 
C CALCULATE DENOMINATOR FOR GIVEN VALUE OF OMEGA, IF N > 0. 
if(N.gt.0) then 
do 70 k-1, N 
den = s*den + ci*a(k) 
70 continue 
endif 


h = num/den 
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C CONVERT COMPLEX VAIUE 'h' INTO MAGNITUDE(mh) AND PHASE(ph) TERMS. 
C IF yscal = 'IOG' THEN CONVERT MAGNITUDE TO DECIBEIS (dB). 
C DIVIDE BY ZERO AVOIDED BY 'if' STATEMENTS. 


mn(np) = cabs(h) 
1f(yscal.eq.'LOG') then 
if (mh(np) .gt.0.00001) then 
mhi(np) = 20.0*10g10 (mh (np) ) 
else 
mhi(np) = -100.0 
endif 
endif 


if (abs (real (h)).1t.1.0e-15) then 
if (abs (aimag(h)).le.1.0e-15) ph(np)=0.0 
if (aimag(h).gt.1.0e-15) ph(np)= 90.0 
if(aimag(h).1t.-1.0e-15) ph(np)=-90.0 
else 
ph(np) = (180.0/p1) *atan2 (aimag(h) , real (h) ) 
endif 


100 continue 


return 
end 
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DFT. FOR VERSION: 2/03/88 


PURPOSE: THIS PROGRAM COMPUTES THE DISCRETE FOURIER TRANSFORM 
(DFT) OR THE INVERSE DISCRETE FOURIER TRANSFORM (IDFT) OF 
A SEQUENCE OF COMPLEX INPUT DATA. THE PROGRAM CONSISTS 
OF A MAIN PROGRAM AND THREE SUBROUTINES. THE SUBROUTINE 
aft COMPUTES THE DISCRETE FOURIER TRANSFORM OF THE 
INPUT ARRAY; THE SUBROUTINE invdft COMPUTES THE 
INVERSE DISCRETE FOURIER TRANSFORM; AND THE SUBROUTINE 
sample ALLOWS THE USER TO GENERATE THE INPUT SEQUENCE BY 
WRITING THE APPROPRIATE EQUATIONS. IF THE USER ELECTS 
TO GENERATE THE INPUT DATA BY USING THE SUBROUTINE 
sample, THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINE USING STANDARD FORTRAN 77 EXECUTABLE STATE- 
MENTS AND THE INPUT DATA GENERATED MUST BE STORED IN 
THE ARRAY xin(). THE OUTPUT OF 'DFT.FOR' IS STORED IN 
THE ARRAY xout(). THE USER HAS THE OPTION OF SELECTING 
ONE OF TWO OPERATING MODES: BATCH OR TEST. IN BATCH 
MODE THE AMOUNT OF INTERACTION WITH THE USER IS 
MINIMIZED AND IT IS ASSUMED THAT THE INPUT PARAMETERS 
HAVE BEEN STORED IN THE INPUT FILE 'DFT.IN'. IN 
TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL 
RUN USING THE DATA STORED IN THE FILE 'DFYT.TST'. 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT TEST 
MODE AND MAKE A TRIAL RUN WITH THE PRESTORED 

DATA. THE TEST MODE ECHOES PORTIONS OF THE 

INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION 

OF ITS ACCURACY. THE OUTPUT IS STORED IN TABULAR FORM 
IN THE FILE 'DFT.OUT' AND IN A FORM SUITABLE FOR 
PLOTTING IN THE FILE 'DFT.DAT'. 


CRHEKKKKEKRKKEKKERERKEKKEKEKEREKKEEKK TNPUT KKK KKKREKRKEKKEKKKKEKEKEREREEKER 


(30 OrO) 


OGY vO 


THIS PROGRAM ASSUMES THAT THERE ARE 'N' COMPLEX VALUES IN THE 
INPUT SEQUENCE. THE INPUT SEQUENCE IS ASSUMED TO BE DEFINED IN THE 
INTERVAL: 0 TO N-1. IF THE INPUT SEQUENCE CONSISTS OF 'REAL' NUMBERS, 


THE IMAGINARY PART IS STORED AS 0.0. THE VALUE 'N' AS WELL AS THE 
OTHER PARAMETERS DESCRIBED BELOW SHOULD BE STORED IN THE INPUT 
FILE 'DFT.IN'. ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE PAID TO 
THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 
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NAME TYPE RANGE (ARRAYS) RESTRICTIONS 


N INTEGER 1 <=N <= 256 
dsorce CHARACTER Ee OR ise 
option CHARACTER ‘eer’ OR *INV* 
xin() COMPLEX Oe ene N= 1 <= Ne SG 
WHERE : 


N = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES IN THE 
INPUT SEQUENCE. 


dsorce = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT SEQUENCE IS TO BE READ FROM A FILE (F) OR TO BE 
GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN THE 
SUBROUTINE sample. 

option = A CHARACTER STRING OF THE LETTERS 'DFT' OR 'INV' 


DENOTING WHETHER THE DFT OR THE INVERSE DFT IS TO BE 
PERFORMED ON THE INPUT DATA. 


xin() = THE ARRAY OF COMPLEX INPUT DATA. IF dsorce = 'F' 
IS SELECTED THEN THE USER MUST SUPPLY THE N INFOT 
VALUES IN THE FILE. IF dsorce = 'S' THEN THE USER 
HAS ELECTED TO GENERATE THE INPUT SEQUENCE BY WRITING 
THE APPROPRIATE FORTRAN STATEMENTS IN THE SPACE 
PROVIDED IN SUBROUTINE sample. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE 
RECOMPTLED BEFORE EXECUTION. 


NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: *****%%* INPUT FORMAT  #kkidox, 
THE FORM OF THE INPUT DATA FILE IS: 


LINE# ENTRIES FORMAT 
il N,dsorce, option eel al eas 
2...N+1 xin() 2£10.0 


NOTES 1. LINES 2...N+1 ARE ONLY REQUIRED IF dsorce = 'F'. 
IF dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE N VALUES FOR xin() IN THE SUBROUTINE sample. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN 
SUBROUTINE sample TO GENERATE xin(). 


2. THE FORMAT £10.0 USED FOR INPUT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G., 3146.2 = 3.1462E+03) . 
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THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR FORM 


IN THE FILE 'DFT.OUT'. ADDITIONALLY, THE INPUT SEQUENCE (REAL AND 
IMAGINARY) AND THE OUTPUT SEQUENCE (MAGNITUDE AND PHASE) ARE WRITTEN 


INTO THE FILE 'DFT.DAT' TO FACILITATE PLOTTING BY A SEPARATE, USER 
SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 'DFT.DAT' IS: 
e12.6, 2x, @e12.6. THE FIRST ENTRY CORRESPONDS TO THE ORDINATE VAJUE 


AND THE SECOND ENTRY, THE ABSCISSA VALUE. ADDITIONAL HEADER 
INFORMATION IS WRITTEN INTO 'DFT.DAT' TO ALLOW FOR CONTROL AND 
LABELING OF EACH PLOT. 


KKKKEKKRKKKKKKKKKRKKEERERKEKEEKEKEK EXAMPLE 2X XRKRRRKEKKKKKKKKKKKKKKKKKKER 


THE INPUT PARAMETERS BELOW ARE STORED IN THE INPOT FILE 
'DFT.TST'. THERE ARE FIVE DATA POINTS IN THE INPUT SEQUENCE AND THE 


GOAL IS TO CALCULATE THE DISCRETE FOURIER TRANSFORM OF THE SEQUENCE. 


DOI 


PBWNrR OO O 
<Q) 
© © © O,o°7 
© © © 2 @ 


THE RESULTING OUTPUT DATA FILE 'DFT.OUT' IS: 


INPUT DATA SOURCEFILE: DFI.TST 


VALUE OF N= 5 dsorce = F option = DFT 
INPUT DATA 
SAMPLE # REAL IMAGINARY 
O - QOOOQ0E+00 - OQOOOOOE+00 
i - LOOOOOE+01 - QOOOOOOE+00 
2 - 2QOO000E+01 - COOOOOE+00 
3 . 3ZOOOO0E+01 - OOOOOOE+00 
4 - 400000E+01 - OOOOOOE+00 
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OUTPUT DATA 
SAMPLE # REAL IMAGINARY MAGNITUDE PHASE 
(DEGREES) 

O . 100000E+02 . QOO000E+00 . 100000E+02 . QOOO00E+00 
i -.250000E+01 .344096E+01 .425325E+01 .126000E+03 
2 -.250000E+01 .812300E+00 .262866E+01 .162000E+03 
3 -.250000E+01 -.812299E+00 .262866E+01 -.162000E+03 
4 -.250000E+01 -.344096E+01 .425326E+01 -.126000E+03 


FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE xin() COULD HAVE BEEN 
GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE APPROPRIATE 
FORTRAN STATEMENTS INTO SUBROUTINE sample. THE STATEMENTS THAT 
COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN INTO THE SUBROUTINE 
BUT ARE 'COMMENTED OUT’. 


MAIN PROGRAM  # XX kK KKKKKKKKAKKKKKKKKKKKKKKA 


character infile*12, option*3, mode*1, dsorce*1, yscal*3 
@emplex X1n(0:255), xout(0:255) 
Beal xmag(0:255), xph(0:255), nn 


Peemel USER FOR MODE: BATCH OR TEST. 


write (*,1115) 
read(*,1117) mode 
if ((mode.eq. 'y') .or. (mode.eq. 'Y')) then 
mode = 'yY' 
write(*,1118) 
read(*,1119) infile 
else 
infile= 'DFT.IN' 
endif 
UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 
open (unit=1, file=infile, status='o0ld@', iostat=ierr, err=999) 
open (unit=2,file='DFT.OUT') 
open (unit=3, file='DFT.DAT') 
READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 


read(1,1000) N, dsorce, option 
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1f({N-1€.1) On S(NeGiey25o)) een 

write(*,1010) N 

stop 'The allowed values for N are: 1 <N <= 256.' 
endif 


if ((option.eq. 'dft') .or. (option.eq.'DFT')) then 
option = 'DFT' 
elseif ((option.eq. 'inv') .or. (option.eq. 'INV')) then 
option = 'INV' 
else 
write(*,1011) option 
stop 'The allowed values for option are: ''DFT'' or ''INV''.' 
endif 


if ((dsorce.eq.'f') .or. (dsorce.eq.'F')) then 
dsorce = 'F'! 
elseif ((dsorce.eq.'s').or. (dsorce.eq.'S')) then 
dsorce = 'S' 
else 
write(*,1009) dsorce 
stop 'The allowed values for dsorce are: ''S'!' or ''F!!,! 
endif 


DEFINE CONSTANTS. 


en =N 

k = 8 

pi = 4.0*atan(1.0) 
numplts = 4 


yscal = 'STD' 


FOR dsorce = 'F!' READ THE INPUT SEQUENCE FROM THE INPUT FILE. 
FOR dsorce = 'S' CALL sample TO GENERATE THE INPUT SEQUENCE. 
THE INPUT SEQUENCE IS STORED IN THE ARRAY xin(). 


if (dsorce.eq.'F') then 

read(1,1001) (xin(i),1=0,N-1) 
else 

call sample(xin,N) 
endif 

FOR TEST MODE ECHO INPUT DATA ONTO THE MONITOR (UNIT = *). 

if (mode.eq. 'Y') then 

write(*,1016) infile 


if(N.1t.8) k=N 
write(*,1017) N, dsorce, option 
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write(*,1012) k 
write (*,1015) 
do 1 i=0, k~-1 
write(*,1020) i, xin(i) 
continue 
endif 


Peeves, THE INPUT SEQUENCE INTO FILE: DFTI.DAT. 


a> 


56 


write(3,2000) numplts 
write(3,2001) N 
write(3,*) ‘INPUT SEQUENCE (REAL) ' 
write(3,*) 'SAMPLE # ! 
write(3,*) ‘REAL xin()' 
do 55 i=0, N-1 
mn = i 
write(3,2010) nn, real(xin(1i) ) 
continue 


write(3,2001) N 

write(3,*) ‘INPUT SEQUENCE (IMAGINARY) ' 
write(3,*) 'SAMPLE # ' 

write(3,*) 'IMAG xin()' 

do 56 i=0, N-1 
mn =i 
write(3,2010) nn, aimag(xin(i)) 

continue 


C WRITE INPUT DATA INTO FILE: DFT.OUOT. 


write(2,1016) infile 
write(2,1017) N, dsorce, option 
write (2,1014) 

mieatce(2,1015) 

do 2 i=0, N-1 
write(2,1020) 1, xin(1) 

continue 


CALL dft OR invdft TO PERFORM THE SELECTED COMPUTATION. 


if (option.eq. 'INV') then 
call invdft(N,x1n,xout) 
else 
eal ort (N, Xin, xout) 
endif 


TRANSFORM OUTPUT DATA INTO EXPONENTIAL FORM: xmag*EXP(j*xph) . 
PHASE xph() IS EXPRESSED IN DEGREES. 


do 60 1=0, N-1 
xmag(1) = cabs(xout(1i)) 
if (abs (real (xout(i))).1t.1.0e-15) then 
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if (abs (aimag(xout(1))).le.1.0e-15) xph(1)=0.0 
if (aimag(xout(i)).gt.1.0e-15) xph(i)=90.0 
if (aimag(xout(i)).1t.-1.0e-15) xph(i)=-90.0 
else 
xph(i) = (180.0/pi) *atan2 (aimag(xout(i)) ,real (xout(i))) 
endif 
60 continue 


C WRITE THE OUTPUT DATA INTO FILes DET BaAr. 


write(3,2001) N 
write(3,*) ‘OUTPUT MAGNITUDE' 
write(3,*) 'SAMPLE #! 
write(3,*) 'MAGNITUDE' 
do 57 i=0, N-1 
nn = i 
write(3,2010) nn, xmag(1i) 
continue 


(4 
~] 


write(3,2001) N 
write(3,*) ‘OUTPUT PHASE! 
write(3,*) 'SAMPLE #' 
write(3,*) 'PHASE (DEG) ' 
do 58 i=0, N-1 
nn = 1 
write(3,2010) nn, xph(i) 
58 continue 


C WRITE THE OOTPOT DATA INTO FILE: DFT.OOT. 


write(2, 1025) 
do 5 i=0, N-1 
write(2,1030) i, xout(i), xmag(1), xph(i) 
5 continue 


write(*,1019) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(ierr.gt.0) then 
write(*,1116) infile, ierr 
endif 


CC xkeKKRKK INPUT FORMAT xx%k ek kx 


1000 format (is) tll, aleeaieas) 
1001 format(2f10.0) 
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1009 
1010 
#011 
O12 


1014 
O15 
1016 
O17 
O19 


1020 
1025 


1030 
115 


#116 


i 7 
118 


format (1x, 'dsorce = ',al,2x,'Error, illegal value for dsorce.') 
format(1x,'N = ',13,2x,'Error, value of N not allowed.') 
format (1x, 'option = ',a3,2x,'Error, illegal value for option.') 
Oformat(/,' THE FIRST ',il,' VALUES OF xin() ARE LISTED BELOW.', 
ive VERIFY THAT THE DATA IS CORRECT.', /) 
format (//,t19, ‘INPUT DATA',//) 
format (/,t4, 'SAMPLE #',t15, 'REAL',t29, 'IMAGINARY',/) 
format (//////,' INPUT DATA SOURCEFILE: ',al2) 
format(' VALUE OF N = ',13,5x,'dsorce = ',al,5x,'option = ',a3) 
Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: DFT.OUT.', 
1/,' PLOTTING DATA IS STORED IN FILE: DFT.DAT.') 
Format (t6,13,t13,2(e12.6,2x)) 
Oformat (///,¢33, 'OUTPUT DATA',//,t4,'SAMPLE #',t17,'REAL', 
1t33, 'IMAGINARY!' ,t49, 'MAGNITUDE',t67, 'PHASE',/,t65,' (DEGREES) ') 
format (t5,i3,t15,4(e12.6,4x)) 
Oformat (1x, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 
1' MODE ? RO NimceR> : '\-) 
Oformat (///,1x, 'ERROR OPENING INPUT FILE: ',al2,/,1x,'PROGRAM', 
1' TERMINATED.',//,1x, 'ERROR CODE:',1i4,/////) 
format (al) 
Oformat (/////,1x, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
ieee —CR>.',/,' IF YOU DESIRE TO MAKE A TEST RUN USING THE’, 
2' SAMPLE DATA ALREADY STORED!',/,' IN THE FILE: DFT.TST', 


S' veer tok <CR>!')/7,' PELENAME: ©, \,) 
19° Lormat(al2) 
2000 format(il) 
2001 format(i3) 
2010 format(el2.6,2x,e12.6) 
end 
C SUBROUTINE: invdft 
C PURPOSE: THIS SUBROUTINE ACCEPIS AS INPUT THE COMPLEX ARRAY 
c x1n(), COMPUTES THE INVERSE DFT OF THE ARRAY, AND 
e RETURNS THE RESULTS IN THE ARRAY xout(). 


subroutine invdft(N,xin,xout) 
complex xin(O:N-1), xout(0:N-1) 


en = N 
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C COMPUTE THE COMPLEX CONJUGATE OF THE INPUT SEQUENCE. 
do 70 i=0, N-1 
Xin(1) = conjg(xin(i)) 

70 continue 


C COMPUTE THE DISCRETE FOURIER TRANSFORM OF THE ARRAY. 
call daft(N,xin, xout) 

C COMPUTE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 
do 80 1=0, N-1 
xout(1) = conjg(xout(i))/en 


80 continue 


return 
end 


C SUBROUTINE: dft 


PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
xin(), COMPUTES THE DISCRETE FOURIER TRANSFORM (DFT) 
OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 
COMPLEX ARRAY xout(). 


Maa ) 


subroutine dadft(N, xin, xout) 
complex xin(0:N-1), xout(0:N-1), w, wm 


4.0*atan(1.0) 
N 


pl 
en 


1f(N-1.eq.0) then 
xout(0) = x1in(0) 
else 
alpha = 2.0*pi/en 
W = cmplx(cos(alpha) ,-sin(alpha) ) 
do 100 k=0, N-1 
wm = w**k 
xout(k) = xin(N-1) 
do. 50 I=N=-2, 0, -—1 
xout(k) = xout(k)*wm + xin(1) 
50 continue 
100 continue 
endif 


return 
end 
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C SUBROUTINE: sample 


PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION. THE SAMPLES ARE RETURNED 
TO THE MAIN PROGRAM IN THE ARRAY xin(). 


COO) 


subroutine sample(xin,N) 
complex xin(0:N-1) 


pi 
en 


4.0*atan(1.0) 
N 


CREEKREKRKKRERRRRKERERERERKKKERKEKKRREREKREEREREERRKRERKEKRERKEKRRERRRERRRKERRRKRKEEKREKK 


DEVELOP THE SAMPLING ALGORITHM IN THIS SPACE. THE STATEMENTS 
TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND MAY USE 
FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(), COS(), ABS()... 

AN EXAMPLE IS SHOWN BELOW. THE INPUT SEQUENCE MUST BE STORED IN 
THE ARRAY xin(). DFT.FOR MUST BE COMPILED AGAIN BEFORE EXECUTION 
IF THIS SUBROUTINE IS USED. 


kkk EXAMPIE *x** 


do 3 1=0, N-1 
1f(i.le.4) then 
xine) = emplx(1,0.0) 
else 
away aL) 
endif 
3. continue 


cmplx(0.0,0.0) 


OO YOY Oe aa 


CEKKKKEKKKKKKKKRKEKKEKEKEKKEKERKERREREKKKERERKERERERRRRRRRRRERKKERKRRRERRRERKEREREER 


return 
end 
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PRDGRM. FOR VERSION: 2/03/88 


PURPOSE: THIS PROGRAM COMPUTES THE PERIODOGRAM OF A CAUSAL 
SEQUENCE USING THE DISCRETE FOURIER TRANSFORM (DFT) 
TECHNIQUE. THE EQUATION FOR THE COMPUTATION OF THE 
N-POINT PERIODOGRAM IS: Sxx(k) = xk(k) *conjg(xk(k) )/N 
WHERE THE ARRAY xk() CONTAINS THE VALUES OF THE DFT 
OF THE INPUT ARRAY xn(), I.E., xk() = DFT[xn()]. THE 
PROGRAM CONSISTS OF A MAIN PROGRAM AND TWO SUBROUTINES 
THE SUBROUTINE daft COMPUTES THE DISCRETE FOURIER 
TRANSFORM OF THE INPUT ARRAY, AND THE SUBROUTINE 
sample ALLOWS THE USER TO GENERATE THE INPUT DATA BY 
WRITING THE APPROPRIATE EQUATIONS. IF THE USER ELECTS 
TO GENERATE THE INPUT DATA BY USING THE SUBROUTINE 
sample, THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINE USING STANDARD FORTRAN 77 EXECUTABLE STATE- 
MENTS 2AND THE INPUT DATA MUST BE STORED IN THE ARRAY 
xn(). ALSO, IF EQUATIONS ARE WRITTEN INITIO sample, 

THE PROGRAM MUST BE COMPILED AGAIN BEFORE EXECUTION. THE 
RESULTS OF THE PERIODIOGRAM COMPUTATION ARE STORED IN 
THE ARRAY Sxx(). THE USER HAS THE OPTION OF CAUSING THE 
OUTPUT TO BE CONVERTED TO DECIBELS. THE USER ALSO HAS 

THE OPTION OF SELECTING ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERACTION WITH 
THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT 
PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 'PRDGRM.IN'. 
IN THE TEST MODE THE USER IS PROMPTED FOR THE NAME 

OF THE INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL 
RUN USING THE DATA STORED IN THE FILE 'PRDGRM.TST'. 

IT 1S RECOMMENDED THAT FIRST-TIME USERS SELECT Teo 

MODE WHEN PROMPTED, AND MAKE A TRIAL RUN WITH THE PRE- 
STORED DATA. ADDITIONALLY, THE TEST MODE ECHOES 

PORTIONS OF THE INPUT DATA ONTO THE MONITOR TO ALLOW 
VERIFICATION OF ITS ACCURACY. THE OUTPUT IS STORED IN 
TABULAR FORM IN THE FILE 'PRDGRM.OUT' AND IN A FORM 
SUITABLE FOR PLOTTING IN THE FILE 'DFT.DAT'. 


KKKKKKKEKKKEKKRKRK KERR ERERERKR A INPUT RRR KKK KRHA KKERAKREKRKEKRKRERKERE 


THIS PROGRAM ASSUMES THAT THERE ARE 'N' COMPLEX DATA POINTS IN THE 
INPUT SEQUENCE. THE INPUT SEQUENCE IS ASSUMED TO BE DEFINED IN 
THE INTERVAL: 0 TON - 1. IF THE INPUT SEQUENCE GONStSiS Ch REA 
NUMBERS, THE IMAGINARY PART IS STORED AS 0.0. THE VALUE 'N' AS WELL 
AS THE OTHER PARAMETERS DESCRIBED BELOW SHOULD BE STORED IN THE 
INPUT FILE 'PRDGRM.IN'. ALL OF THE READ STATEMENTS USED BY THIS 
PROGRAM REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE 
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PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 


NAME TYPE RANGE (ARRAYS) RESTRICTIONS 

N INTEGER 1 << N <= 256 
dsorce CHARACTER ee OR. 9S! 
yscal CHARACTER [Sib FOR GOs 
xn () COMPLEX O72 eNet: seo 6 
WHERE : 


N = AN INTEGER THAT SPECIFIES THE NUMBER OF VALUES IN THE INPUT 
SEQUENCE. 


dsorce = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INFUT DATA IS TO BE READ FROM A FILE (F) OR TO BE 
GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN THE 
SUBROUTINE sample. 


yscal = A CHARACTER STRING SPECIFYING THE DESIRED MAGNITUDE OPTION: 
'STD' WILL PRODUCE STANDARD MAGNITUDE OUTPUT; 
'LOG' WILL PRODUCE MAGNITUDE EXPRESSED IN DECIBELS (dB). 
xn() = THE ARRAY OF COMPLEX INPUT DATA. IF dsorce = 'F'! 


tS CELCIPIED THE USER MUST SUPPLY THE N INPUT 

VALUES IN THE FILE. IF dsorce = 'S' THEN THE USER 
HAS ELECTED TO GENERATE THE INPUT SEQUENCE BY 
WRITING THE APPROPRIATE FORTRAN STATEMENTS IN THE 
SPACE ALLOCATED IN SUBROUTINE sample. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE 
RECOMPILED BEFORE EXECUTION. 


NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: *****%*% INPUT FORMAT **%k4k#x, 
THE FORM OF THE INPUT DATA FILE IS: 


LINE# ENTRIES FORMAT 
iL N,dsorce, yscal 147i al, t21,a3 
Pee Ne 1 xn () PEON 


Pelr> 1. LINES 2...N+1 ARE ONLY REQUIRED IF dsorce = 'F'. 
IF dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE N VALUES OF xn() IN SUBROUTINE sample. THE USER 
MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN 
SUBROUTINE sample AND THE VALUES MUST BE STORED IN THE 
ARRAY xn(). 


EoD 


QAAQAAN 


2. THE FORMAT £10.0 USED FOR INPUT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT ‘TO BE 
USED (E.G., 3146.2 = 3.1462E703)8 


CHEEK KKKKKKKKKKKEKKKKKKRKAKKRKEKK OUTPUT KKKKKKKKKKERKKRKKKRKEERKEKRKEKKERRRKEKK 


* 


QVQNAOANANANANNANNQQANQAQIQQQQQQQQOQQNQAAQDAANANAQAANQAQAY]AON 


THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
FORM IN THE FILE 'PRDGRM.OUT'. ADDITIONALLY, THE INPUT SEQUENCE 
(REAL AND IMAGINARY) AND THE OUTPUT SEQUENCE ARE STORED IN THE FILE 
"PRDGRM.DAT' TO FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED 
PROGRAM. THE FORMAT OF THE DATA IN 'PRDGRM.DAT' IS: e12.6,2x,e12.6. 
THE FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE AND THE SECOND 
ENTRY, THE ABSCISSA VAQUE. ADDITIONAL HEADER INFORMATION IS WRITTEN 
INTO 'PRDGRM.DAT' TO ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 


KRKKKKKKKKEKRERKRKRERKERRKRKKKKKK EXAMPLE 2X RRR RKKKKERARRREKREKRKRKKEKREKE 


THE INPUT PARAMETERS BELOW ARE STORED IN THE INPOT FILE 
"PRDGRM.TST'. THERE ARE EIGHT POINTS IN THE INPUT SEQUENCE AND 
THE GOAL IS TO CALCULATE THE PERIODOGRAM OF THE DATA. 


STD 


mWwM FO O 
oOo 0 2 0 
O-0.60-@: © /*j 
Oo Off -O © 


THE RESULTING OUTPUT FILE 'PRDGRM.DAT' IS: 


INPUT DATA SOURCEFILE: PRDGRM.TST 


VALUE OF N = 2 dsorce = F MAGNITUDE OPTION = STD 
INPUT DATA 
xn () 
n REAL IMAGINARY 
0 - OOOOE+00 - OO00E+00 
a - LOOOE+01 - OOOOE+00 
2 -2000E701 - OOOOE+00 
3 - JOO00E+OL - OOOOE+00 
“ - 4000E+01 - OOOOE+00 


2 


Corey (2 Creamer 0) CIC) (area tae) Ge eo 2 0) 


. 


OUTPUT DATA 


Sxx (K) 
“ZeCOE+O0Z 
.3618E+01 
pisoZze oO. 
Soe ZeO1 
-SO1SETOL 


mWNYR O KF 


FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE xn() COULD HAVE 
BEEN GENERATED BY SPECIFYING dsorce = 'S!' AND WRITING THE 
APPROPRIATE FORTRAN STATEMENTS INTO SUBROUTINE sample. ‘THE 
STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN 
INTO THE SUBROUTINE BUT ARE 'COMMENTED OUT’. 


RHERKKRKKAKKKKAKERKEKKEAEKRRERKAER MAIN PROGRAM XX XXRKRKAKKKARKARARKEKKKKKERKEEKK 


character infile*12, ylabl*14, yscal*3, mode*1, dsorce*l 
character title*16 

complex xn(0:255), xk(0:255) 

real Sxx(0:255), nn, kk 


PROMPT USER FOR MODE: BATCH OR TEST. 


write(*,1115) 
read(*,1117) mode 
if ((mode.eq. 'y') .or. (mode.eq. 'Y')) then 
mode = 'Y' 
write (*,1118) 
read(*,1119) infile 
else 
infile = 'PRDGRM.IN' 
endif 


C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 


open (unit=1, file=infile, status='old', iostat=lerr, err=999) 
open (unit=2,file='PRDGRM.OUT') 
open (unit=3, file='PRDGRM.DAT') 


C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 


read(1,1000) N, dsorce, yscal 
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if((N.1t.1).or. (N.gt.256)) then 

write(*,1010) N 

stop 'The allowed values for N are: 1 <=N <= 256' 
endif 


if ((dsorce.eq.'f').or. (dsorce.eq.'F')) then 
dsorce = 'F' 
elseif ((dsorce.eq.'s').or. (dsorce.eq.'S')) then 
dsorce = 'S' 
else 
write(*,1009) dsorce 
stop 'The allowed values for dsorce are: ''S'' or ''F'',! 
endif 


if ( (yscal.eq. 'std') .or. (yscal.eq.'STD')) then 


title = ' Pericdogram '! 
yscal = "Sip: 
ylabl = ' = Sxx(k) 
elseif ((yscal.eq.'log').or. (yscal.eq.'LOG')) then 
title = ' Log Periocdogram' 
yscal = 'LOG' 
Ylabl = 'Sxx(k) (dB)' 
else 


write(*,1128) yscal 
stop 'Error, yscal must be the string ''STD'' or ''LOG''.' 
endif 


FOR dsorce = 'F' READ THE INPUT SEQUENCE FROM THE INPUT FILE. 
FOR dsorce 'S' CALL sample TO GENERATE THE INPUT SEQUENCE. 
THE INPUT SEQUENCE IS STORED IN THE ARRAY xn(). 


if (dsorce.eq.'F') then 
read(1,1001) (xn(1),1=0,N-1) 
else 
call sample(xn,N) 
endif 


DEFINE CONSTANTS 


k = 8 

en =N 

pi = 4.0*atan(1.0) 
numplts = 3 


FOR TEST MODE ECHO INPUT DATA ONTO MONITOR (UNIT = *). 


if (mode.eq.'Y') then 
write(*,1016) infile 
if(N.1t.8) kK=N 
write(*,1017) N, dsorce, yscal 
write(*,1012) k 
write(*,1015) 
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do 4 1=0, k-1 
write(*,1020) 1, xn(1) 
4 continue 
endif 


Seevitie, THE INPUT SEQUENCE INTO FILE: PRDGRM.DAT. 


write(3,2000) numplts 
write(3,2001) N 
write(3,*) ‘INPUT SEQUENCE (REAL) '! 
write(3,*) 'SAMPLE # (n)! 
write(3,*) 'REAL (xn)'! 
do 55 i=0, N-1 

nn =i 

write(3,2010) nn, real(xn(i)) 

55 continue 


write(3,2001) N 
write(3,*) 'INPUT SEQUENCE (IMAGINARY) '! 
write(3,*) 'SAMPLE # (n)! 
write(3,*) ‘IMAGINARY (xn)! 
do 56 1=0, N-1 
nn = i 
write(3,2010) nn, aimag(xn(i)) 
56 continue 


Seevetir INPUT DATA INTO OUTPUT FILE: PROGRM.OUT. 


write(2,1016) infile 
write(2,1017) N, dsorce, yscal 
write(2,1014) 
write(2,1015) 
do 59 i=0, N-1 
write(2,1020) i, xn(1) 
59 continue 


© CALL dit TO COMPUTE THE DISCRETE FOURIER TRANSFORM OF THE 
C INPUT SEQUENCE. 


call dft(N,xn, xk) 
THE PERIODOGRAM COMPUTATION RESULTS FROM THE EQUATION: 


Sxx(k) = xk(k) *conjg(xk(k))/N. THE SEQUENCE Sxx(k) IS 
CONVERTED TO DECIBEIS IF yscal = 'IOG'. 


C20) 


do 60 k=0, N-1 
Sxx(k) = xk(k) *conjg(xk(k) )/en 


15 


if (yscal.eq.'LOG') then 
if (Sxx(k) .gt.1.0e-19) then 
Sxx(k) = 10.0*logLlO(Sxx(k) ) 
else 
Sxx(k) = -100.0 
endif 
endif 
60 continue 


C WRITE RESULTS INTO OUTPUT FILE: PRDGRM.DAT. 


write(3,2001) N 

write(3,2002) title 

write(3,*) 'k ' 

write(3,*) ylabl 

do 57 k=-0, N-1 

kk = k 

Wie te (372010) dew Soils) 
57 continue 


C WRITE RESULTS INTO Colrur Pili: PRDGRM Our. 


write(2,1025) ylabl 
do 5 k=O, N-1 
write(2,1030) k, Sxx(k) 
5 continue 


write(*,1019) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(ierr.gt.0) then 
write(*,1116) infile, ierr 
endif 


Co ekRKRRKKK JTNPUT FORMAT xxxx%xw* 


1600 Viommacds cll al te pea) 
1OOL “format (2r10.0) 


Co KBRKRKRKKKRKKRRKRRRRRRRRRRRRRRRRRRERE 


1009 format(1x,'dsorce = ',al,2x,'Error, illegal value for dsorce.') 

16010. formacGix,(N = (a3) 

1012 Oformat(/,' THE FIRST ',i1,' VALUES OF xn() ARE LISTED BELOW.', 
1/,' VERIFY THAT THE DATA TS CORRECI a} 

1014 format(//,t22, ‘INPUT DATA',/,t25, 'xn()',//) 

1015 format(t8,'n',t15, 'REAL',t28, 'IMAGINARY') 

1016 format(//////,' INPUT DATA SOURCEFILE: ',al2) 

1017 Oformat(' VALUE OF N = ',13,5x,'dsorce = ',al1,5x,'MAGNITUDE ', 
L'OPTION = ',a3) 
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O19 


1020 
1025 
1030 
iS 


116 


a7 
1118 


119 
1128 
2000 
2001 
2002 
2003 
2010 


Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: PRDGRM.OUT.', 
1/,' PLOTTING DATA IS STORED IN FILE: PRDGRM.DAT') 

format (4x,14,2(4x,e10.4)) 

format (///,t19, ‘OUTPUT DATA',//,t7,'k',t12,a11) 

format (t5,13,4x,e10.4) 

Oformat (1x, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 

1' MODE ? (Y/N) <CR> : ',\,) 

Oformat (///,1x, "ERROR OPENING INPUT FILE: ',al12,/,1x, 'PROGRAM', 
1' TERMINATED.',//,1x, 'ERROR CODE:',i4,/////) 

format (al) 

Oformat (/////,1x, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
1' BY <CR>.',/,' IF YOU DESIRE TO MAKE A TEST RUN USING THE', 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: PRDGRM.TST', 
3! TYPE: PRDGRM.TST <CR>',/,' FILENAME: ',\,) 

format (al2) 

format (////// ,t2,'The value of yscal is: ',a3,'.') 

format (i1) 

format (13) 

format (al6) 

format (a8) 

format (e12.6,2x,e12.6) 


end 


SUBROUTINE: dft 


PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 


xn(), COMPUTES THE DISCRETE FOURIER TRANSFORM (DFT) 
OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 
COMPLEX ARRAY xk(). 


subroutine dft(N,xn, xk) 
complex xn(O:N-1), xK(O:N-1), w, wm 


Mean 120) 
N 


= 
en = 
if (N-1.eq.0) then 
xk(0) = xn(0) 
else 
alpha = 2.0*pi/en 
W = cmplx(cos(alpha) ,-sin(alpha) ) 


97) 


do 100 k=0, N-1 
wm = w**k 
xk(k) = xn(N-1) 
do 50 1=N-2, 0, 1 
xk(k) = xK(k)*wm + xn(1) 


50 continue 
100 continue 
endif 
return 
end 
E SUBROUTINE: sample 
C 
Cc 
C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
ec OF A CONTINUOUS FUNCTION. ‘THE SAMPLES ARE RETURNED 
eC TO THE MAIN PROGRAM IN THE ARRAY xn(). 


subroutine sample (xn,N) 
complex xn(0:N-1) 


pi = 4.0*atan(1.0) 
en =N 


CEEKKKRKKKEKKRKEKKERKEKRKKEEKEKRKEKEKKEKEKKEEEEEREKEKKEEEEEEREKERERERERERERERKRRREREERE 


DEVELOP THE SAMPLING ALGORITHM IN THIS SPACE. THE STATEMENTS 
TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND MAY USE 
FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(), COS(), ABS()... 
AN EXAMPLE IS SHOWN BELOW. THE INPUT DATA MUST BE STORED IN THE 
ARRAY xn(). IF THIS SUBROUTINE IS USED, 'PRDGRM.FOR' MUST BE 
COMPILED AGAIN BEFORE EXECUTION. 


kkk = EXAMPIE *x* 
do 3 1=0, N-1 


xn(1) = cmplx(i,0.0) 
3. continue 


OOOO" OO Oa 


CREEKKERKRKEREREEKRKRERRERKEKEREKKKREKREKEKEKEKEKKEKRKEKRKREKEKREKREEKEREERRRKRRERKREREEKRE 


return 
end 
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PURPOSE: 


CONCORDT’. FOR VERSION: 2/03/88 


THIS PROGRAM PERFORMS ANY ONE OF THE FOLLOWING FOUR 
COMPUTATIONS GIVEN TWO COMPLEX ARRAYS OF INPUT DATA: 
LINEAR CONVOLUTION (LCON); LINEAR CORRELATION (LCOR) ; 
CIRCULAR CONVOLUTION (COON); OR CIRCULAR CORRELATION 
(CCOR). CONVOLUTION IS PERFORMED BY COMPUTING THE DFT 
OF EACH ARRAY, MULTIPLYING THE DFTs TOGETHER AND THEN 
TAKING THE INVERSE DFT OF THE RESULTING ARRAY. 
CORRELATION IS PERFORMED IN THE SAME MANNER EXCEPT 
THAT THE CONJUGATE OF THE DFT OF ARRAY #1 IS MULTIPLIED 
BY THE DFT OF ARRAY #2. THE RESULT OF THIS COMPUTATION, 
GIVEN THE INPUT SEQUENCES x1 AND x2, IS THE CORRELATION 
SEQUENCE Rx1x2. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM AND FIVE SUBROUTINES. THE SUBROUTINE zeropad 
EXTENDS THE INPUT ARRAY PASSED TO IT BY ADDING AN 
APPROPRIATE NUMBER OF ZEROES TO THE ORIGINAL INPUT DATA 
TO CREATE AN ARRAY OF SUITABLE LENGTH FOR THE LINEAR 
CONVOLUTION/CORRELATION ALGORITHMS. THE SUBROUTINE 
dft COMPUTES THE DISCRETE FOURIER TRANSFORM OF AN 
ARRAY. THE SUBROUTINE invdft COMPUTES THE INVERSE 
DISCRETE FOURIER TRANSFORM OF AN ARRAY. THE TWO 
SUBROUTINES sampll1 AND sampl2 ALLOW THE USER TO 
GENERATE EITHER OF THE INPUT ARRAYS BY WRITING THE 
APPROPRIATE EQUATIONS. IF THE USER CHOOSES TO 
GENERATE THE INPUT DATA BY USING EITHER OF THE sampl 
SUBROUTINE(S), THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINE(S) USING STANDARD FORTRAN 77 EXECUTABLE 
STATEMENTS AND THE VALUES GENERATED MUST BE STORED 

IN THE ARRAYS xn1() AND xn2(). THE USER HAS THE 
OPTION OF SELECTING ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERACTION 
WITH THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE 
INPUT PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 
'CONCORDT.IN'. IN TEST MODE THE USER IS PROMPTED 

FOR THE NAME OF THE INPUT FILE AND HAS THE OPTION 

TO PERFORM A TRIAL RUN USING THE DATA STORED IN 

THE FILE 'CONCORD?.TST'. IT IS RECOMMENDED THAT FIRST- 
TIME USERS SELECT THE TEST MODE AND PERFORM A TRIAL 
RUN WITH THE PRESTORED DATA. THE TEST MODE ECHOES 
PORTIONS OF THE INPUT DATA ONTO THE MONITOR TO ALIOW 
VERIFICATION OF ITS ACCURACY. THE OUTPUT OF THE 
PROGRAM 'CONCORDT.FOR' IS STORED IN THE ARRAY xn3(). 
THE OUTPUT IS STORED IN TABULAR FORM IN THE FIIE 
'CONCORDT.OUT' AND IN A FORM SUITABLE FOR PLOTTING 

IN THE FILE 'CONCORDT.DAT'. 


KREKKKEKKEKEKKKKKKKKKKKKKKKKKKEK INPUT KEEKKKRKKEREKEKRKREKKKREKKKKKRERKKREEE 
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THIS PROGRAM ASSUMES THAT THERE ARE TWO SEQUENCES OF INPUT DATA 
STORED IN THE ARRAYS xn1() AND xn2() OF LENGTH 'N1' AND 'N2', 
RESPECTIVELY. THE ARRAYS ARE ASSUMED TO BE COMPLEX. IF THE 
ARRAYS CONTAIN 'REAL' VAIUES ONLY, THEN THE IMAGINARY PART IS 
STORED AS 0.0. THE INPUT SEQUENCES ARE ASSUMED TO BE DEFINED 

IN THE INTERVAIS 0 TO N1-1 AND 0 TO N2-1, RESPECTIVELY. 

THIS PROGRAM ALLOWS THE USER THE OPTION OF EITHER READING THE 

THE INPUT ARRAYS FROM A DATA FILE OR OF GENERATING THE INPUT 
VALUES FROM AN ITERATIVE EQUATION IN THE sampl SUBROUTINE(S). 

THE PARAMETERS DESCRIBED BELOW ALLOW THE USER TO SELECT THE 
DESIRED OPTIONS AND THESE PARAMETERS MUST BE STORED IN THE INPUT 
FILE 'CONCORDT.IN'. ALL OF THE READ STATEMENTS USED BY THIS 
PROGRAM REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE 
PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 


NAME; TYEE RANGE (ARRAYS) RESTRICTIONS 

N1 INTEGER 1 <= Nl = 128 

dsrcel CHARACTER TR r@R: "St 

N2 INTEGER 1 <= N2 <= 128 

dsrce2 CHARACTER ‘Fr! OR Sa 

option CHARACTER ONE OF THE FOLLOWING: 
'LOON! @TECOR® “"CGONtMa COORM 

x1 () COMPLEX O,1,...,N1-1 1 <= Nl <= 128 

xn2 () COMPLEX O,1,...,N2-1 1 <= N2 <= 128 

WHERE : 


N1 = AN INTEGER THAT SPECIFIES THE NUMBER OF POINTS OF INPUT 
DATA TO BE STORED IN THE ARRAY xnl(). 


dsrcel = A CHARACTER VAIUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xnl() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE sampll. 


N2 = AN INTEGER THAT SPECIFIES THE NUMBER OF POINTS OF INPUT 
DATA TO BE STORED IN THE ARRAY xn2(). 


asrce2 = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn2() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE sampl2. 
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option = A CHARACTER STRING OF FOUR LETTERS DENOTING THE 
COMPUTATION DESTRED. '‘'LCON' LINEAR CONVOLUTION 


"LCOR' LINEAR CORRELATION 

"COON! = CIRCULAR CONVOLUTION 

'COOR' = CIRCULAR CORRELATION 
xn1() = THE FIRST ARRAY OF COMPLEX INPUT DATA. IF dsrceli = 'F' 


fSesPECIFIED THE USER MUST SUPPLY THE N1 INPUT 
VALUES IN THE FILE. IF dsrcel = 'S' THE USER HAS 
ELECTED TO GENERATE THE INPUT DATA BY PROVIDING 
THE APPROPRIATE FORTRAN STATEMENTS IN THE SPACE 
ALLOCATED IN SUBROUTINE sampli. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE 
RECOMPILED BEFORE EXECUTION. 


xn2() = THE SECOND ARRAY OF COMPLEX INPUT DATA. IF dsrce2 = 
i" 4S SPECIFIED THE®USER HAS ELECTED TO PROVIDE THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SPACE ALLOCATED 
IN SUBROUTINE sampl12. IF THIS METHOD OF DATA 
GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. IF dsrce2 = 'F' THEN THE USER MUST 
SUPPLY THE N2 INPUT VALUES IN THE FILE. 


NOTE: ‘THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ******** JNPUT FORMAT ****k%%%, 
THE FORM OF THE INPUT DATA FILE IS: 
LINE# ENTRIES FORMAT 
il N1,dsrcel nS calla 
2 N2 ,dsrce2,option ieeet lal, coe ad 
NOTE 1 xn1() DELONO 
NOTE 2 xn2 () 2f10.0 


NOTES 1. IF dsrcel = 'F' THEN THE LINES 3...N1+2 MUST CONTAIN 
THE VALUES TO BE READ INTO THE ARRAY xn1(). EACH VALUE 
IS READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. 
IF dsrcel = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xn1() IN THE SUBROUTINE sampll. THE USER 
MUST THEN PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl1 TO GENERATE xn1(). 


2. IF dsrce2 = 'F' THEN THE NEXT N2 LINES CONTAIN THE 
VALUES TO BE READ INTO THE ARRAY »n2(). EACH VAIUE IS 
READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. IF 
dsrce2 = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 
VALUES FOR xn2() IN THE SUBROUTINE sampl2. THE USER 
MUST THEN PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl2 TO GENERATE THE ARRAY xn2(). 
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3. THE FORMAT 2f10.0 USED FOR INPUT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G., 3146.2 = 3.1462E+03) . 


4. IF option = 'CCON' OR 'CCOR!' N1 MUST BE EQUAL TO N2. 


CRKKKKKKKKKEKKKKKKKEKKKKKKKKKKKKE «=~ OUTPUT KKKKKKAKKKKKK KEKE EKERERKK KKK 


GC 
C 
C 
G 
E 
C 
C 
C 
c 
c 
C 
Cc 
C 
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THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
FORM IN THE FILE 'CONCORD?.OUT'. ADDITIONALLY, THE INPUT SEQUENCES 
AND THE OUTPUT SEQUENCE ARE WRITTEN INTO THE FILE 'CONCORDT.DAT' 
TO FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED PROGRAM. THE 
FORMAT OF THE DATA IN 'CONCORDT.DAT' IS: e12.6, 2x, e12.6. THE 
FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE AND THE SECOND ENTRY, 
THE ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 
"CONCORDI.DAT' TO ALLOW FOR CONTROL AND LABELING OF EACH PILOT. 


KEKKEKRKEREREKRERERERERRERERERERKE EXAMPLE KR RKKKKKEKKEKKEKKEKKEKEREREKREKRERKRERER 


THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE 
"CONCORDT.TST'. THE PROGRAM READS THE FIRST 4 VALUES INTO xnil() 
(dsrcel = 'F', Nl = 4), AND READS THE NEXT 5 VALUES INTO xn2() 
(dsrce2 = 'F', N2 = 5). THE GOAL IS TO CALCULATE THE LINEAR 
CONVOLUTION OF THE TWO INPUT ARRAYS. 


004 ie 
005 fs LCON 
iso O20 
Zee O.0 
a0) 0.0 
4.0 0.0 
oe) 0-0 
4.0 OE O 
DO 0.0 
Zo) O.0 
0 O.0 


THE RESULTING OUTPUT DATA FILE 'CONCORDT.OUT' IS: 


INPUT DATA SOURCEFILE: CONCORDI.TST 


Ni = A dsrcel = F 
N2= 5 dsrce2 = F 
option = LOON 
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C 

oe 

c INPUT DATA 

C 

Cc xn () 

e on REAL IMAGINARY 

eS 0 - LOOOOOE+01 - OOOOOO0E+00 

ce 1 - 200000E+01 . OOOO00E+00 

= 2 . 300000E+01 - OOOO00E+00 

c 3 - 400000E+01 - OOOOO0E+00 

S 

Cc xn () 

oe. n REAL IMAGINARY 

c 0 - 5|OO0000E+01 - OOOOO00E+00 

= 1 -400000E+01 - OOOO00E+00 

Cc 2 - 3JOOO00E+01 - OOOOO0E+00 

eS 3 - 200000E+01 - OOOO00E+00 

c 4 - LOOOOOE+01 - OO0000E+00 

e 

C 

c OUTPUT DATA 

c 

c xn3 () 

=> n REAL IMAGINARY 

Cc 0 - 500000E+01 -9536/74E-06 

eS 1 - L140000E+02 =. 303457E-05 

Cc 2 - 260000E+02 -. 756009E-05 

Cc 3 - 400000E+02 -.404610E-05 

c 4 - 300000E+02 e277 JAGE=O5 

ce 5 - 200000E+02 . 762858E-05 

ce 6 - LLOOO0E+02 7eo72 130E=-05 

= 7 -400001E+01 m4720252-05 

c 

cS 

C FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCES xni() AND xn2() 
C COULD HAVE BEEN GENERATED BY SPECIFYING dsrce# = 'S' AND WRITING 
C THE APPROPRIATE FORTRAN STATEMENTS INTO THE sampl# SUBROUTINES. 
C THE STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN 
C INTO THE RESPECTIVE SUBROUTINES BUT ARE ‘COMMENTED OUT'. 
c 

C 


CR KKK KKK KKK REKKKRREKKEKRERK MAIN PROGRAM KKK RRR RK KKK RRR KR KKK 


character infile*12, option*4, mode*l1, dsrcel*1, dsrce2*1 
character title*20 

Semotex xn1(0:255), xm2(0:255)9) xs (0: 255) 

complex xk1(0:255), xk2(0:255), xk3(0:255) 

real nn 
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C PROMPT USER FOR MODE: BATCH OR TEST. 


c 


write(*,1115) 

read(*,1117) mode 

if ((mode.eq. 'y') .or. (mode.eq.'Y')) then 
mode = 'y' 
write (*,1118) 
read(*,1119) infile 

else 

infile = 'CONCORDT.IN'! 

endif 


UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 


open (unit=1, file=infile,status='old', iostat=ierr,err=999) 
open (unit=2 , f1le='CONCORDT.OUT') 
open (unit=3 , file='CONCORDT.DAT' ) 


ow 


READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 


read(1,1000) Ni, dsrcel 
read(1,1001) N2, dsrce2, option 


if ((dsrcel.eq.'f').or. (dsrcel.eq.'F')) then 
dsrcel = 'F' 
elseif ((dsrcel.eq.'s').or. (dsrcel.eq.'S')) then 
dsrcei = 'S'! 
else 
write(*,1009) 'dsrcel = ', dsrcel 
stop 'The allowed values for dsrcel are: ''F'' or ''S't',! 
endif 


if ((dsrce2.eq.'f') .or. (adsrce2.eq.'F')) then 
dsrce2 = 'F' 

elseif ((dsrce2.eq.'s') .or. (dsrce2.eq.'S')) then 
dsrce2 = 'S' 


else 

write(*,1009) 'dsrce2 = ', dsrce2 

stop 'The allowed values for dsrce2 are: ''F'' or ''S'',! 
endif 


if ((option.eq. 'ccon') .or. (option.eq. 'COCON')) then 
option = 'CCON'! 
title = 'Circular Convolution! 

elseif ((option.eq. 'ccor') .or. (option.eq.'CCOR')) then 
option = 'CCOR' 
title = 'Circular Correlation' 

elseif ((option.eq.'lcon') .or. (option.eq. 'LCON')) then 
option = 'LCON' 
title = 'Linear Convolution! 

elseif ((option.eq. 'lcor') .or. (option.eq. 'LOOR')) then 
option = 'ICOR' 
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title = 'Linear Correlation’ 


else 


write(*,1011) option 
stop 'The allowed values for option are: CCON,CCOR, LCON, LCOR.' 


endif 
meen). 1t.1).or. (Nl.gt.128)) then 
write(*,1010) 'Nl = ', N1 
stop 'The allowed values for N1 are: 1 <N1l <= 128' 
endif 
ma. 1t.1).or. (N2.gt.128)) then 
write(*,1010) 'N2 = ', N2 


stop 'The allowed values for N2 are: 1 <= N2 <= 128' 


endif 


if ((option.eq. 'CCON') .or. (option.eq.'CCOR')) then 
1f(Nl.ne.N2) then 

write(*,1008) option, N1, N2 

stop 'For option = ''CCOR'' or ''CCON'' N1 must equal N2.' 


endif 
N3 = N1 
endif 


C DEFINE CONSTANTS. 


k = 8 
numplts 


FOR dsrce# = 
FOR dsrce# = 


mo 


6 


'F' READ INPUT SEQUENCE(S) FROM THE DATA FILE. 
'S' CALL sampl# TO GENERATE THE INPUT SEQUENCE(S). 


THE INPUT SEQUENCES ARE STORED IN THE ARRAYS xnl(), xn2(). 


if (dsrcel.eq.'F') then 
read(1,1002) (xn1(i),i=0,N1-1) 


else 


call sampl1(xn1,N1) 


endif 


if (dsrce2.eq.'F') then 
read(1,1002) (xn2(i) ,i=0,N2-1) 


else 


call samp1l2 (xn2,N2) 


endif 


C FOR TEST MODE ECHO INPUT DATA ONTO MONITOR (UNIT = *). 


1f(mode.eq.'Y¥') then 
write(*,1016) infile 
if ((N1.1t.8) .or. (N2.1t.8)) k = min(N1,N2) 
write(*,1017) 'Nl = ', Nl, 'dsrcel = ', dsrcel 
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write(*,1017) 'N2 = ', N2, 'dsrce2 = ', dsrce2 
write(*,1018) option 
write(*,1012) k 
write (*,1013) 
do 3 1=0, k-1 
write(*,1020) i, xni(i), xn2(i) 
3 continue 
endif 


C WRITE THE INPUT SEQUENCES INTO FILE: CONCORDI.DAT. 


write (3,2000) numplts 

write(3,2001) N1 

write(3,*) 'INPUT SEQUENCE xn1 (REAL)' 
write(3,*) 'SAMPLE # (n)' 

write(3,*) 'REAL xn1()' 

do 54 i=0, Ni1-1 

nn =i 
write(3,2010) nn, real(xni1(i)) 

54 continue 


write(3,2001) N1 

write(3,*) 'INPUT SEQUENCE xn1 (IMAGINARY)! 
write(3,*) 'SAMPLE # (n)' 

write(3,*) ‘IMAG xn1()' 

do 55 1=0, Ni-1 

mn =i 

write(3,2010) nn, aimag(xn1(i)) 

55 continue 


write(3,2001) N2 

write(3,*) 'INPUT SEQUENCE xn2 (REAL) ' 
write(3,*) 'SAMPLE # (n)! 

write(3,*) 'REAL xn2()' 

do 56 i=0, N2-1 

mn = 1 
write(3,2010) nn, real(xn2(i)) 

56 continue 


write(3,2001) N2 
write(3,*) 'INPUT SEQUENCE xn2 (IMAGINARY) ' 
write(3,*) 'SAMPLE # (n)' 
write(3,*) ‘IMAG xn2()' 
do 57 1=0, N2-1 
nn = 1 
write(3,2010) nn, aimag(xn2(i)) 
a7 continue 


C WRITE INPUT DATA INTO FILE: CONCORDI.OUT. 


write(2,1016) infile 
write(2,1017) 'Nl1 = ', N1, 'dsrcel = '', dsrcel 
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write(2,1017) 'N2 = ', N2, 'dsrce2 = ', dsrce2 
write(2,1018) option 
write(2,1014) ‘INPUT DATA' 
write(2,1015) 'xn1()'! 
do 60 i=0, Nl1-1 
write(2,1026) i, xnl(i) 
60 continue 
write(2,1015) 'xn2()! 
do 61 1=0, N2-1 
write(2,1026) i, xn2(i) 
61 continue 


C FOR LINEAR CONVOLUTION OR LINEAR CORRELATION BOTH INPUT ARRAYS 
C ARE ZERO-PADDED TO LENGTH N3 = N1 + N2 —- 1. 


if ((option.eq. 'LCON') .or. (option.eq.'LCOR')) then 
ie— NI + N2 - 1 
call zeropad(xn1,N1,N3) 
call zeropad(xn2,N2,N3) 

endif 


C COMPUTE THE DFT OF BOTH INPUT SEQUENCES. 


eae) afc (N3,xnl1,xk1) 
eal ALt(N3,xn2,xk2) 


C PERFORM CONVOLUTION COMPUTATION. 


1f ((option.eq. 'LCON').or. (option.eq. 'CCON')) then 
do 22 i=0, N3-1 
xk3(i) = xk1(i) *xk2(i) 
2D continue 
call invdft(N3,xk3,xn3) 
endif 


C PERFORM CORRELATION COMPUTATION. 


if ((option.eq.'LOOR') .or. (option.eq. 'CCOR')) then 
do 23 1=0, N3-1 
xk1(1) = conjg(xk1(1)) 
xk3(i) = xk1(i) *xk2(i) 
23 continue 
call invdaft (N3,xk3,xn3) 
endif 


C WRITE RESULIS INTO FILE: CONCORDT. DAT. 


write(3,2001) N3 
write(3,2003) title 
write(3,*) "SAMPLE # (n)' 
write(3,*) "REAL xn3()' 
do 58 i=0, N3-1 
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58 


a9 


m = 1 
write(3,2010) nn, real (xn3(i)) 
continue 


write(3,2001) N3 
write(3,2003) title 


write(3,*) 'SAMPLE # (n)'! 
write(3,*) 'IMAG xn3()' 

do 59 i=0, N3-1 
m=i 
write(3,2010) nn, aimag(xn3(1i) ) 
continue 


C WRITE RESULTS INTO FILE: CONCORDT.OUT. 


write(2,1014) ‘OUTPUT DATA' 
write(2,1015) 'xn3()'! 
do 62 i=0, N3-1 


write(2,1026) i, xn3(i) 


62 continue 
write (*,1019) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 
if (ierr.gt.0) then 
write(*,1116) infile, lierr 
endif 
jC KRRAEKKRKEK INPUT FORMAT KKKEKKKKE 
1000 format(i3,t11,a1) 
1001 format (13-614 ai e2ia) 
1002 format(2f10.0) 
Se KEEKRKKKKEKKKEKRKEKKKKKKKRKKKKKKKKREEE 
1008 Oformat(" cption = *7a4,") Ml = 1147 ae = ee Error. 
1' N1 is not equal to N2.') 
1009 format(1x,a9,al,' Error, value not allowed.') 
1010 format(1x,a5,14,2x,'Error, value not allowed.') 
1011 format(lx, 'option = ',a4,2x,'Error, illegal value for option.') 
1012 Oformat(/,t2,'THE FIRST',i3,' VALUES OF INPUT DATA ARE LISTED ', 


1013 


1014 
OA 
1016 
TOT? 
1018 


1/,' BELOW, VERIFY THAT THE DATA IS CORRECT.',/) 
Oformat (t21, 'xn1()',t53,'xn2()',/,t4,'n',t11, 'REAL',t27, 
1' IMAGINARY! ,t43, 'REAL',t59, ' IMAGINARY ') 
format 7 7,220; ali)) 
format (/,t21,a7,/,t6,'n',t13, 'REAL' ,t29, 'IMAGINARY') 
format (///,' INPUT DATA SOURCEFILE: ',a12) 
format (t2,a5,13,5x,a9,al) 
format (t2,'option = ',a4) 
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1019 
1020 
1026 
1115 
1116 


i / 
1118 


Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: CONCORDT.OUT.', 
1/,' PLOTTING DATA IS STORED IN FILE: CONCORDT.DAT.') 

format (t4,11,4(4x,e12.6) ) 

format (t4,13,2(4x,e12.6)) 
Oformat (1x, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 

1' MODE ? (Y/N) <CR>: ',\,) 
Oformat(///,1x,'ERROR OPENING INPUT FILE: ',al2,/,1x,'PROGRAM', 
1' TERMINATED.',//,1x,'ERROR CODE:', 14,/////) 

format (al) 
Oformat(/////,1x, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED’, 

1' BY <CR>.',/,' IF YOU DESIRE TO MAKE A TEST RUN USING THE', 
2' SAMPLE DATA ALREADY STORED!',/,' IN THE FILE: CONCORDI.TST', 


B, MYER meCONGORDE., Tol <GR>*,/,° PILENAME: * 7) 
fig «format (al2) 
2000 format(il) 
2001 format(i3) 
2003 format(a20) 
2010 format(el2.6,2x,e12.6) 
end 
S SUBROUTINE: zeropad 
C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY xn() 
c OF LENGTH N AND ZERO PADS THE ARRAY TO LENGTH N3. 


Subroutine zeropad(xn,N,N3) 
complex xn(0:N3-1) 


do 33 i=N, N3-1 
xn(i) = cmplx(0.0,0.0) 


33 continue 
return 
end 
Cc SUBROUTINE: invdft 
C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
CG x1in() AND COMPUTES THE INVERSE DFT OF THE ARRAY. THE 
G OUTPUT IS STORED IN THE COMPLEX ARRAY xout(). 


subroutine invdft(N, xin, xout) 
complex xin(0:N=-1), xout(0:N-1) 


en = N 
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C COMPUTE THE COMPLEX CONJUGATE OF THE INPUT DATA. 
do 70 i=0, N-1 
X1n(1) = conjg(x1in(1)) 

70 continue 

C COMPUTE THE DISCRETE FOURIER TRANSFORM OF THE ARRAY. 
call dft(N,xin,xout) 

C COMPUTE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 


do 80 i=0, N-1 
xout(1l) = conjg(xout(i))/en 


80 continue 
return 
end 
C SUBROUTINE: daft 
C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
Gc Xin(), COMPUTES THE DISCRETE FOURIER TRANSFORM (DFT) 
C OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 
e COMPLEX ARRAY xout() . 


subroutine daft(N, xin, xout) 
complex xin(0:N-1), xout(0:N-1), w, wm 


4.0*atan(1.0) 
N 


pL = 
en = 

1f(N-1.eq.0) then 
xout(0) = x1n(0) 

else 
alpha = 2.0*pi/en 
W = cmplx(cos(alpha) ,-Sin(alpha) ) 
do 100 k=0, N-1 

wm = w**k 

xout(k) = xin(N-1) 

do 50 1=N-2, 0, -1 

xout(k) = xout(k) *wm+xin(1) 


50 continue 
100 continue 
endif 
return 
end 
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Cc SUBROUTINE: sampll 


PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xnl(). IF dsrcel = 'S' THEN THE MAIN PROGRAM WILL CALL 
THIS SUBROUTINE TO GENERATE THE VAIUES FOR »m1(). 

IF dsrcel DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 
NOT BE CALLED BY THE MAIN PROGRAM. 


(YOR) 1} 


subroutine sampl1(xn1,N1) 
complex xn1(0:N1-1) 


pi = 4.0*atan(1.0) 
enl = Nl 


CEKKEKKKEKKKKEKEKKEEKEKKEKEKKEKEKKKEKKEREEKRKEKEREKEEKKREREKEEREKREREERERERRRRKEKEKRKKRER 


DEVELOP THE SAMPLING ALGORITHM FOR xnl() IN THIS SPACE. THE 
STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(),COS()... 
AN EXAMPLE OF AN ALGORITHM GENERATING VAIUES FOR xnl() IS SHOWN. 


kkk EXAMPITR xxx 
do 6 1=0, N1-1 


xn1(1) = cmplx(i+1.0,0.0) 
6 continue 


AQ-Gweaae (a C 


CEEKKKEKKEKKKEKKKEKKEKKEKKKKEKEKEKEKEKRKEKEEKREKRKREKKEKKEEKEKRKERKEEREKEKEREREKERREKKREKEKE 


return 
end 


C SUBROUTINE: sampl2 


PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPIES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xn2(). IF dsrce2 = 'S' THEN THE MAIN PROGRAM WILL CALL 
THIS SUBROUTINE TO GENERATE THE VAIUES FOR xn2(). 
IF dsrce2 DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 
NOT BE CALLED BY THE MAIN PROGRAM. 


MOM YO 


Zale 


subroutine samp12 (xn2,N2) 
complex xn2(0:N2-1) 


pi = 4.0*atan(1.0) 
en2 = N2 


CEKKREKKKEKXKRKEKKKKRKREKREKRKRKRREREKRRRREREREREREREKRRRERERRRRRERRRRRERRREERRKRERRREREEEE 


DEVELOP THE SAMPLING ALGORTTHM FOR xn2() IN THIS SPACE. THE 
STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(),COS()... 
AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xn2() IS SHOWN. 


kkk EXAMPLE *** 
do 7 1=0, N2-1 


xn2(1i) = cmplx(5.0-1,0.0) 
7 continue 


MOO 0 


C¥EKERKRKRRKEKKKKKEKERKREKKERREKREKRKEKRRERERERERKRRRRERERERRRRRERERERERERRERREREERER 


return 
end 


Zo 
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eek VERSION: 2/03/88 


PURPOSE: THIS PROGRAM COMPUTES THE DISCRETE FOURIER TRANSFORM 
OR THE INVERSE DISCRETE FOURIER TRANSFORM OF A SET OF 
COMPLEX INPUT DATA USING A RADIX-2, DECIMATION IN TIME 
(DIT) FAST FOURIER TRANSFORM (FFT) ALGORTTHM. THE 
PROGRAM CONSISTS OF A MAIN PROGRAM AND FOUR SUB- 
ROUTINES. THE SUBROUTINE reversal REARRANGES THE 
INPUT INTO 'BIT-REVERSED' ORDER; THE SUBROUTINE fft 
COMPUTES THE FAST FOURIER TRANSFORM; THE SUBROUTINE 
invfft COMPUTES THE INVERSE FAST FOURIER TRANSFORM; AND 
THE SUBROUTINE sample ALLOWS THE USER TO GENERATE THE 
THE INPUT DATA BY WRITING THE APPROPRIATE EQUATIONS. IF 
THE USER ELECTS TO GENERATE THE INPUT DATA BY USING THE 
SUBROUTINE sample, THE EQUATIONS MUST BE WRITTEN INTO 
THE SUBROUTINE USING STANDARD FORTRAN 77 STATEMENTS AND 
THE INPUT DATA GENERATED MUST BE STORED IN THE 
ARRAY xtmo(). THE OUTPUT OF 'FFT.FOR' IS STORED IN 
THE ARRAY x(). THE USER HAS THE OPTION OF SELECTING 
ONE OF TWO OPERATING MODES: BATCH OR TEST. 

IN BATCH MODE THE AMOUNT OF INTERACTION WITH THE 

USER IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT 
PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 'FFT.IN'. 
IN TEST MODE THE USER IS PROMPTED FOR THE NAME OF 

THE INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL 
RUN USING THE DATA STORED IN THE FILE 'FFT.TST’. 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT TEST 
MODE AND MAKE A TRIAL RUN WITH THE PRESTORED 

DATA. THE TEST MODE ECHOES PORTIONS OF THE INPUT 

DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF ITS 
ACCURACY. THE OUTPUT IS STORED IN TABULAR FORM IN 
THE FILE 'FFT.OUT' AND IN A FORM SUITABLE FOR PLOTTING 
IN THE FILE 'FFT.DAT'. 
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THIS PROGRAM ASSUMES THAT THERE ARE N = 2**m COMPLEX VALUES IN THE 
INPUT SEQUENCE. THE INPUT SEQUENCE IS ASSUMED TO BE DEFINED IN 
Pree eTPERVAL: O'fO N-1. IF THE INPUT SEQUENCE CONSISTS OF ‘REAL! 
NUMBERS THE IMAGINARY PART IS STORED AS 0.0. THE VALUE 'm' AS WELL 
AS THE OTHER PARAMETERS DESCRIBED BELOW SHOULD BE STORED IN THE 
INPUT FILE ‘'FFT.IN'. ALL OF THE READ STATEMENTS USED BY THIS 
PROGRAM REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE 
PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 
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NAME 


m 
dsorce 
Goulon 


xtmp () 
WHERE: 


m= AN 


TYEE RANGE (ARRAYS) RESTRICTIONS 





INTEGER 0 <= m <= 8 
CHARACTER 'F! OR 'S! 
CHARACTER 'FFT' OR 'INV! 
COMPLEX On) s..,aNEL 1 <= N <= 256 


INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES IN THE 


INPUT SEQUENCE. N = 2**m. 


dsorce 


option 


xtp () 


NOTE: 


LINE# 


Jie olin 


WHERE : 


= A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT DATA IS TO BE READ FROM A FILE (F) OR TO BE 
GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN THE 
SUBROUTINE sample. 


A CHARACTER STRING OF THE LETTERS 'FFT' OR 'INV' 
DENOTING WHETHER THE FFT OR THE INVERSE FFT IS TO BE 
PERFORMED ON THE INPUT DATA. 


THE ARRAY OF COMPLEX INPUT DATA. IF dsorce = 'F' IS 
SELECTED THEN THE USER MUST SUPPLY THE N INPUT VALUES 

IN THE FILE. IF dsorce = 'S' THEN THE USER HAS 

ELECTED TO GENERATE THE INPUT SEQUENCE BY PROVIDING THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SPACE PROVIDED IN 
SUBROUTINE sample. IF THIS METHOD OF DATA GENERATION IS 
ELECTED THE PROGRAM MUST BE RECOMPILED BEFORE EXECUTION. 


THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ***##k** INPUT FORMAT xkx%%kex, 
THE FORM OF THE INPUT DATA FILE IS: 


ENTRIES FORMAT 
m,dsorce , option 11, Eli al, e2i ae 
xtmp () 2f10.0 


N = 2**m 


NOTES 1. LINES 2...N+1 ARE ONLY REQUIRED IF dsorce = 'F'. IF 


dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 
N = 2**m VALUES FOR xtmp() IN THE SUBROUTINE sample. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN 
SUBROUTINE sample TO GENERATE THE VALUES FOR xtmp(). 


THE FORMAT £10.0 USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN COLUMNS 

AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (E.G., 
3146.2 = 3.1462E+03) . 
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THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
FORM IN THE FILE 'FFT.OUT'. ADDITIONALLY, THE INPUT SEQUENCE (REAL 
AND IMAGINARY) AND THE OUTPUT SEQUENCE (MAGNITUDE AND PHASE) ARE 
WRITTEN INTO THE FILE 
SEPARATE, USER SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 


CDE DAT 


ES? 


|r eee 


e12.6, 2x, e12.6. 


TO FACILITATE PLOTTING BY A 


THE FIRST ENTRY CORRESPONDS TO 


THE ORDINATE VALUE AND THE SECOND ENTRY, THE ABSCISSA VALUE. 


ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 


FOR CONTROL AND LABELING OF EACH PLOT. 


THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE 


EXAMPLE 


'FFT. DAT! 


TO ALLOW 


KKRERRERRRERRERRERERERRRRRRERE 


Ene oly. cs 


THERE ARE EIGHT DATA POINTS IN THE INPUT SEQUENCE AND THE GOAL IS 
TO COMPUTE THE FAST FOURIER TRANSFORM (FFT) OF THE SEQUENCE. 
NOTE: N = 2**%m = 8 THEREFORE m = 3. 


e 


OOO FP WNEF O W 
Oooo o9c°o © 


THE RESULTING OUTPUT DATA FILE 


OO © 0 © O eo" 
Ooo 00 00 © 


Pie 


INPUT DATA SOURCEFILE: FFT.TST 


VALUE OF m = 3 
Ke 


dsorce = 


SAMPLE # 


mWNY FH O 


VALUE OF N (2**m) 


option = FFT 
INPUT DATA 
REAL IMAGINARY 
- OOOO00E+00 - OOOO00E+00 
- LQOOOOE+01 - COOOO0E+00 
- 200000E+01 - OOOO00E+00 
- 300000E+01 - OOOQ00E+00 
- 400000E+01 - OOOQOO0E+00 


| ieee 


Z5 


TS: 
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INPUT DATA 
(BIT-REVERSED ORDER) 
REAL IMAGINARY 
. OOOOOOE+00 . OOOO00E+00 
. 400000E+01 . OOOO000E+00 
. 200000E+01 . OOO000E+00 
. OOOO00E+00 . OOOOO0E+00 
. LOOOOOE+01 . OOOOO0OE+00 


5 .QOO000E+00 .O000000E+00  .000000E+00 .000000E+00 
6 .000000E+00  .000000E+00 .300000E+01 .000000E+00 
7 .OOOCOOE+00  .000000E+00 .000000E+00  .000000E+00 
OUTPUT DATA 
SAMPLE # REAL IMAGINARY MAGNITUDE PHASE 
(DEGREES) 
0 .100000E+02 .000000E+00 .100000E+02 .000000E+00 
1 -.541421E+01 -.482843E+01  .725448E+01 -.138273E+03 
2 .200000E+01 .200000E+01 #.282843E+01  .450000E+02 
3 -.258579E+01 -.828427E+00  .271525E+01 -.162236E+03 
4 .200000E+01  .OQOQ000E+00  .200000E+01  .000000E+00 
5 -.258579E+O1l  .828427E+00 .271525E+01 .162236E+03 
6 .200000E+O1 —.200000E+01  .282843E+01 -.450000E+02 
7 -.541421E+01  .482843E+01  .725448E+01 .138273E+03 


FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE xtmp() COULD HAVE 
BEEN GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE 
APPROPRIATE FORTRAN STATEMENTS INTO SUBROUTINE sample. THE 
STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN 
INTO THE SUBROUTINE BUT ARE 'COMMENTED OUT’. 
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character infile*12, option*3, mode*l, dsorce*l 


complex 3(0;255). sem. 2 55) 
real >mag(0: 255) 7) xen O=255)eamm 


PROMPT USER FOR MODE: BATCH OR TEST. 


write(*,1115) 

read(*,1117) mode 

if ((mode.eq. 'y') .or. (mode.eq.'Y')) then 
mode = 'y' 
write(*,1118) 
read(*,1119) infile 

else 

infile= 'FFT.IN'! 

endif 


UNITI=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 
open (unit=1, file=infile,status='old', iostat=ierr, err=999) 


open (unit=2, file='FFT.OUT') 
open (unit=3, file='FFT.DAT') 
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READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 
read(1,1000) m, dsorce, option 


ie((m.1t.0).or. (m.gt.8)) then 

write(*,1010) m 

stop 'The allowed values for mare: 0 <=m <= 8.' 
endif 


if((option.eq. 'FFT').or. (option.eq. 'fft')) then 
option = 'FFT' 
elseif ((option.eq. 'INV').or. (option.eq. 'inv')) then 
option = 'INV' 
else 
write(*,1011) option 
stop 'The allowed values for option are: ''FFT'' or ''INV'!.' 
endif 


if ((dsorce.eq.'F').or. (dsorce.eq.'f')) then 
dsorce = 'F' 
elseif ((dsorce.eq.'S').or. (dsorce.eq.'s')) then 
dsorce = 'S'! 
else 
write(*,1018) dsorce 
stop 'The allowed values for dsorce are: ''S'' or ''F!'!.! 
endif 


DEFINE CONSTANTS. 


N = 2**m 

en =N 

k= 8 

pi = 4.0*atan(1.0) 
numplts = 4 


FOR dsorce 'F’ READ THE INPUT SEQUENCE FROM THE INPUT FILE. 
FOR dsorce 'S' CALL sample TO GENERATE THE INPUT SEQUENCE. 
THE INPUT SEQUENCE IS STORED IN THE ARRAY xtmp(). 


if (dsorce.eq.'F') then 
read(1,1001) (xtmp(i) ,i=0,N-1) 
else 


call sample (xtmp,N) 
endif 
FOR TEST MODE ECHO INPUT DATA ONTO THE MONITOR (UNIT = *). 
if (mode.eq.'Y') then 
write(*,1016) infile 
if(N.1t.8) k=N 


write(*,1017) m, N, dsorce, option 
write(*,1012) k 


ee 


write (*,1013) 
do 3 1=0, k-1 
write(*,1020) i, xtmp(i) 
3 continue 
endif 


C WRITE THE INPUT SEQUENCE INTO FILE: FFT.DAT. 


write(3,2000) numplts 
write(3,2001) N 

write(3,*) 'INPUT SEQUENCE (REAL) ' 
write(3,*) 'SAMPLE #' 

write(3,*) 'REAL xtmp() ' 

do 55 1=0, N-1 

Mine 1 

write(3,2010) nn, real (xtmp(i) ) 

5S continue 


write(3,2001) N 

write(3,*) ‘INPUT SEQUENCE (IMAGINARY) ' 
write(3,*) 'SAMPLE #' 

write(3,*) ‘IMAG xtmp() ' 

do 56 i=0, N-1 

m= i1 
write(3,2010) nn, aimag(xtmp(1i) ) 

56 continue 


C CALL reversal TO REARRANGE DATA INTO BIT-REVERSED ORDER. 
call reversal (N,m,xtmp, xX) 
C WRITE INPUT DATA INTO FILE: FFT.OUT. 


infile 
m, N, dsorce, option 


write (2,1016) 
write (2,1017) 
write (2,1014) 
write(2,1015) 
do 8 1=0, N-1 
write(2,1030) i, xtamp(i), x(1) 

8 continue 


C CALL fft OR invfft TO PERFORM THE SELECTED COMPUTATION. 


if (option.eq.'INV') then 
call invfft(N,m,x) 

else 
Ca ase ae 3c) 

endif 
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C TRANSFORM OUTPUT DATA INTO EXPONENTIAL FORM: xmag*EXP(j*xph) . 
C PHASE xph() IS EXPRESSED IN DEGREES. 


do 60 1=0, N-1 
xmag(1) = cabs(x(1)) 
1f (abs (real (x(1))).1t.1.0e-15) then 
if (abs (aimag(xX(1))).le.1.0e-15) xph(i)=0.0 
if (aimag(x(1)).gt.1.0e-15) xph(i)=90.0 
if (aimag(x(i)).1t.-1.0e-15) xph(i)=-90.0 
else 
xph (i)=(180.0/pi) *atan2 (aimag(x(i)) , real (x(i))) 
endif 
60 continue 


C WRITE THE OUTPUT DATA INTO FILE: FFT.DAT. 


write (3,2001) N 

write(3,*) ‘OUTPUT MAGNITUDE! 
write(3,*) 'SAMPLE #! 
write(3,*) ‘MAGNITUDE! 

do 57 i=0, N-1 

m= 1 

write(3,2010) nn, xmag(1) 

57 cont inue 


write(3,2001) N 
write(3,*) ‘OUTPUT PHASE! 
write(3,*) 'SAMPLE #! 
write(3,*) 'PHASE (DEG) ' 
do 58 i=0, N-1 

nn = 1 

wieatce(3,2010)enn, xph(1) 

58 continue 


Seville, THE OUTPUT DATA INTO FILE: FFI.OUr. 


write(2,1025) 
do 5 i=0, N-1 
write(2,1030) 1, x(1), xmag(1), xph(1) 
5 continue 


write (*, 1019) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(ierr.gt.0) then 


write(*,1116) infile, lerr 
endif 
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C kRKKKKKE 


1000 
1001 


INPUT FORMAT ***%%kk% 


format (i11;,til,al, t21-a3) 
format (2f10.0) 


Co KRKKKKKKKEKKEKEKKEKRKKKEKKEKKKERKRRKKKKEKE 


1010 
Loi 
rCi2 


eis 
1014 


Lots 


1016 
LOL 


1018 
1019 


1020 
uOZ> 


1030 
it 


FILG 


ane 
1118 


format(1x,'m = ',11,2x,'Error, value of m not allowed.') 
format(1x, 'option = ',a3,2x,'Error, illegal value for option.') 
Oformat(/,' THE FIRST ',1i1,' VALUES OF xtmp() ARE LISTED ', 
1'BELOW.',/,' VERIFY THAT THE DATA WAS STORED CORRECTLY. ') 
format(/,t4,'SAMPLE #',t15,'REAL' ,t29, ' IMAGINARY', /) 
Oformat (///,t25, INPUT DATA' ,t57,' INPUT DATA',/, 
1t52,'(BIT-REVERSED ORDER) ',/) 
Oformat (t4,'SAMPLE #',t17, 'REAL' ,t33, ' IMAGINARY! ,t49, 'REAL', 
1t65, ' IMAGINARY') 
format (///,' INPUT DATA SOURCEFILE: ',al12) 
Oformat(' VATUL OF m = ',i1,5x, 'VAIUE OF N (2**m) = 
1l'dsorce = ',al,5x,'option = ',a3) 
format (1x, 'dsorce = ',al,2x,'Error, illegal value for dsorce.') 
Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: FFr Our. | 
1/,' PLOTTING DATA IS STORED IN FILE: FFT.DAT.') 
format (7,11, Els ,2iei2- 6,2) 
Oformat (///,t33,'OUTPUT DATA',//,t4,'SAMPLE #',t17,'REAL', 
1t33, 'IMAGINARY' ,t49, 'MAGNITUDE' ,t67,'PHASE',/,t65, ' (DEGREES) ') 
format (t5,13,t15,4(e12.6, 4x) ) 
Oformat(1x,'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 
1' MODE ? (Y/N) <CR> : ',\,) 
Oformat(///,1x, 'ERROR OPENING INPUT FILE: ',al2,/,1x,'PROGRAM', 
1' TERMINATED.',//,1x, "ERROR CODE:',i4,/////) 
format (al) 
Oformat (/////,1X, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
1' BY <CR>.',/,' IF YOU DESIRE TO MAKE A TEST RUN USING THE 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: FFT.TST', 


ps «fee 


3 TYPE: FFT .TSY <CR>! 7, \ bree 
1g19 > femal 
2000 format(il) 
2001 format(i3) 
2010 format(el2.6,2x,e12.6) 
end 
C SUBROUTINE: invfft 
C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
e X(), COMPUTES THE INVERSE FAST FOURIER TRANSFORM (IFFT) 
CG OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 
e ORIGINAL ARRAY x(). 
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subroutine invfft(N,m,x) 
complex x(0:N-1) 


en = N 
C CALCULATE THE COMPLEX CONJUGATE OF THE INPUT SEQUENCE. 
do 70 1=0, N-1 
mun) = Conjg(x(1) ) 
70 continue 
C CALCULATE THE FAST FOURIER TRANSFORM OF THE ARRAY. 
eal £Lt(N,m,x) 
C CALCULATE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 


do 80 1=0, N-1 


x(1) = conjg(x(i))/en 
80 continue 
return 
end 
Cc SUBROUTINE: reversal 
C PURPOSE: ‘THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
ic CONTAINING THE VALUES xtmp() THAT WERE READ FROM 
@ THE INPUT FILE. THE OUTPUT OF THIS SUBROUTINE IS 
Cc THE COMPLEX ARRAY x() THAT CONTAINS THE INPUT 
Cc VALUES IN 'BIT=-REVERSED! ORDER. 
subroutine reversal (N,m,xtmp,x) 
complex xtmp(0:N=-1), x(0:N-1) 
do 10 k=0, N-1 
newaddr = 0 
maddr = k 
do 20 i=0, m-1 
lrmndr = mod(maddr,2) 
newaddr = newaddr + lrmndr*2**(m-1-1) 
maddr = maddr/2 
20 continue 
x(newaddr) = xtmp(k) 
10 continue 
return 
end 


Zon 
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SUBROUHINE;  ff£t 


PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY x(), 
COMPUTES THE FAST FOURIER TRANSFORM (FFT) OF THE 
ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 
ORIGINAL ARRAY x(). 


subroutine fft(N,m,x) 
complex x(O:N-1), W, timp 


4.O0*atan(1.0) 
N 


pi 
en 


do 50 I[=l, m 
ispace = 2**I, 
Ss = N/ispace 
1iwidth = ispace/2 
do 40 j=0, iwidth-1 
r= s*j 
alpha = 2.0*pi*r/en 
W = cmplx(cos (alpha) ,-sin(alpha) ) 
do 30 itop=j, N-2, ispace 
ibot = itop + iwidth 
tmp = x(ibot) *W 
X(ibot) = x(itop) - tmp 
x(itop) = x(itop) + tmp 
continue 
continue 
continue 


returm 
end 


SUBROUTINE: sample 


PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE 2**m 
SAMPLES OF A CONTINUOUS FUNCTION. THE SAMPLES ARE 
RETURNED TO THE MAIN PROGRAM IN THE ARRAY xtmp(). 


subroutine sample (xtmp,N) 
complex xtmp(0:N=1) 


pi 
en 


4.0*atan(1.0) 
N 
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C DEVELOP THE SAMPLING ALGORITHM IN THIS SPACE. THE STATEMENTS 
C TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND MAY USE 

C FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(), COS(), ABS()... 
C AN EXAMPLE IS SHOWN BELOW. THE INPUT DATA MUST BE STORED IN 
C THE ARRAY xtmp(). FFT.FOR MUST BE COMPILED AGAIN BEFORE 

C EXECUTION IF THIS SUBROUTINE IS USED. 

Cc 

C *x** EXAMPLE kkk 

c 

‘G do 2 i=0, N-1 

c if(i.le.4) then 

c xtmp(i) = cmplx(i,0.0) 

€ else 

C xtmp (i) = cmplx(0.0,0.0) 

ce endif 

= 


2 continue 


C¥ KK KH KK KKK KKEKEK KK ERE EKRRREERREREEEKREERKREERRERERRERRERKRREEKK 


return 
end 
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PURPOSE. 


CONCORF'T. FOR VERSION: 2/03/88 


THIS PROGRAM PERFORMS ANY ONE OF THE FOLLOWING FOUR 
COMPUTATIONS GIVEN TWO COMPLEX ARRAYS OF INPUT DATA: 
LINEAR CONVOLUTION (LCON); LINEAR CORRELATION (LCOR) ; 
CIRCULAR CONVOLUTION (CCON); OR CIRCULAR CORRELATION 
(CCOR) BY USING THE FAST FOURTER TRANSFORM (FFT) 
ALGORITHM. FOR THE CONVOLUTION OPERATIONS THE PROCEDURE 
INVOLVES COMPUTING THE FFTs OF THE ARRAYS, MULTIPLYING 
THE FFTs TOGETHER AND COMPUTING THE INVERSE FFT 

OF THE RESULT. FOR THE CORRELATION OPERATIONS THE 
PROCEDURE IS THE SAME EXCEPT THAT THE CONJUGATE OF 

THE FFT OF THE FIRST INPUT ARRAY IS MULTIPLIED BY THE 
FFT OF THE SECOND ARRAY. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM AND SIX SUBROUTINES. THE SUBROUTINE zeropad 
EXTENDS THE INPUT ARRAY PASSED TO IT BY ADDING AN 
APPROPRIATE NUMBER OF ZERCES TO THE ORIGINAL INPUT DATA 
TO CREATE AN ARRAY OF LENGTH 2**m, m = INTEGER. THE 
SUBROUTINE fft COMPUTES THE DISCRETE FOURIER TRANSFORM 
OF AN ARRAY USING THE RADIX-2 FFT ALGORITHM. THE 
SUBROUTINE invfft COMPUTES THE INVERSE DISCRETE 
FOURIER TRANSFORM OF AN ARRAY USING THE ALTERNATE 
INVERSION FORMULA. THE SUBROUTINE reversal REARRANGES 
THE INPUT DATA INTO BIT-REVERSED ORDER BEFORE £ff£t Is 
CALLED. THE SUBROUTINES sampll AND sampl2 ALLOW THE 
USER TO GENERATE EITHER OF THE INPUT ARRAYS BY WRITING 
THE APPROPRIATE EQUATIONS. IF THE USER CHOOSES TO 
GENERATE THE INPUT DATA BY USING EITHER OF THE sampl 
SUBROUTINE (S) , THE EQUATIONS MUST BE WRITTEN INTO 

THE SUBROUTINE(S) USING STANDARD FORTRAN 77 EXECUTABLE 
STATEMENTS AND THE VALUES GENERATED MUST BE STORED 

IN THE ARRAYS xnl1() AND xn2(). THE USER HAS THE 
OPTION OF SELECTING ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERACTION 

WITH THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE 
INPUT PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 
'CONCORFT.IN'. IN TEST MODE THE USER IS PROMPTED 

FOR THE NAME OF THE INPUT FILE AND HAS THE OPTION 

TO PERFORM A TRIAL RUN USING THE DATA STORED IN THE 
FILE ‘'CONCORET.TST'. IT IS RECOMMENDED Daa FIRST-TIME 
USERS SELECT TEST MODE AND PERFORM A TRIAL RUN 

WITH THE PRESTORED DATA. THE TEST MODE ECHOES 
PORTIONS OF THE INPUT DATA ONTO THE MONITOR TO ALLOW 
VERIFICATION OF ITS ACCURACY. THE OUTPUT OF THE 
PROGRAM 'CONCORFT.FOR' IS STORED IN THE ARRAY xn3() 
AND IS WRITTEN IN TABULAR FORM INTO THE FILE 
"CONCORFT.OUT' AND IN A FORM SUITABLE FOR PLOTTING 

IN THE FILE 'CONCORFT.DAT'. 
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THIS PROGRAM ASSUMES THAT THERE ARE TWO SEQUENCES OF INPUT DATA 
STORED IN THE ARRAYS xn1() AND xn2() OF LENGTH 'N1' AND 'N2', 
RESPECTIVELY. THE SEQUENCES ARE ASSUMED TO BE COMPLEX. IF THE 
SEQUENCES CONTAIN REAL VALUES ONLY, THEN THE IMAGINARY PART IS 
STORED AS 0.0 . THIS PROGRAM USES A RADIX—-2 FFT ALGORITHM. 

FOR LINEAR CONVOLUTION OR LINEAR CORRELATION (option = LCON,LCOR) 
THE INPUT ARRAYS DO NOT HAVE TO BE OF LENGTH 2**m, m = INTEGER. 
THE SUBROUTINE zeropad ADJUSTS THE ARRAY LENGTHS BEFORE 

THE FFT COMPUTATIONS ARE MADE. FOR CIRCULAR CONVOLUTION OR 
CIRCULAR CORRELATION (option = CCON,CCOR) THE ARRAYS MUST BE OF 
LENGTH 2**m, m = INTEGER BECAUSE EXTENDING THE SEQUENCES BY 

ZERO PADDING WILL PRODUCE ERRONEOUS RESULTS. THE INPUT SEQUENCES 
ARE ASSUMED TO BE DEFINED IN THE INTERVALS 0 TO N1-1, AND 0 

MO N2Z-1, RESPECTIVELY. THIS PROGRAM ALLOWS THE USER THE 

OPTION OF EITHER READING THE INPUT ARRAYS FROM THE DATA 

FILE OR GENERATING THE INPUT VALUES FROM AN ITERATIVE EQUATION 
IN THE sampl SUBROUTINE(S). THE PARAMETERS DESCRIBED 

BELOW ALLOW THE USER TO SELECT THE DESTRED OPTIONS AND THESE 
PARAMETERS SHOULD BE STORED IN THE INPUT FILE 'CONCORFT.IN'. 

ALL OF THE READ STATEMENTS USED BY THIS PROGRAM REQUIRE FORMATTED 
INPUT. PARTICULAR ATTENTION SHOULD BE PAID TO THESE FORMATS, 
ESPECIALLY THE USE OF THE DECIMAL POINT TO DISTINGUISH BETWEEN 
'REAL' AND INTEGER DATA. 


NAME eee, RANGE (ARRAYS) RESTRIC lGNs 

Nl INTEGER 1 <= Nl <= 128 
dsrcel CHARACTER ie S. 

N2 INTEGER 1 <= N2 <= 128 
dsrce2 CHARACTER EO. 1S” 
option CHARACTER ONE OF THE FOLLOWING: 


ECON" "ECOR' 'CCON' 'CCOR! 


xn1 () COMPLEX 07 1 eee 1 <= Nl <= 128 
me ) COMPLEX Ore osteo 1 <= N2 <= 128 
WHERE: 


N1 = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES 
TO BE STORED IN THE ARRAY xnl1(). FOR option = CCON 
OR CCOR, Nl MUST BE AN INTEGER POWER OF 2, AND N1 AND N2 
MUST BE EQUAL. 


dsrcel = A CHARACTER VAIUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn1() IS TO BE READ FROM A FIIE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE sampll. 
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N2 = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES 
TO BE STORED IN THE ARRAY xn2(). FOR option = CCON 
OR CCOR, N2 MUST BE AN INTEGER POWER OF 2, AND N1 AND N2 
MUST BE EQUAL. 


dsrce2 = A CHARACTER VAIUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn2() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 


THE SUBROUTINE sampl2. 


A CHARACTER STRING OF FOUR LETTERS DENOTING THE 

COMPUTATION DESIRED: 'LCON' LINEAR CONVOLUTION 
Tore LINEAR CORRELATION 
"CCON' CIRCULAR CONVOLUTION 
"CGGRS CIRCULAR CORRELATION. 


option 


xnl() 


THE FIRST ARRAY OF COMPLEX INHJT DATA. IF dsrcel = 'F' 
IS SPECIFIED THE USER MUST SUPPLY THE N1 INPUT VALUES 
IN THE FILE. IF dsrcel = 'S' THE USER HAS ELECTED TO 
GENERATE THE INPUT DATA BY PROVIDING THE APPROPRIATE 
FORTRAN STATEMENTS IN THE SPACE ALLOCATED IN SUBROUTINE 
sampl1. IF THIS METHOD OF DATA GENERATION IS ELECTED 
THE PROGRAM MUST BE RECOMPILED BEFORE EXECUTION. 


agVAI) THE SECOND ARRAY OF COMPLEX INPUT DATA. IF dsrce2 = 
'S’ IS SPECIFIED THE USER HAS * RLECTED Weer Roy Bere tric 
APPROPRIATE FORTRAN STATEMENTS IN THE SPACE ALLOCATED 
IN SUBROUTINE sampl2. IF THIS METHOD OF DATA 
GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. IF dsrce2 = 'F' THEN THE USER MUST 


SUPPLY THE N2 INPUT VALUES IN THE FILE. 


NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ******** INPUT FORMAT **kkkeex, 
THE FORM OF THE INPUT DATA FILE IS: 


LINE# ENTRIES FORMAT 

it N1,dsrcel 13 bead 

2 N2,dsrce2,option rey tla 2 at 
NOTE 1 xn1 () 2f10.0 
NOTE 2 xn2 () 2£10.0 


NOTES 1. IF dsrcel = 'F' THEN THE LINES 3...N1+2 MUST CONTAIN 
THE VALUES TO BE READ INTO THE ARRAY xnl1(). EACH VALUE 
IS READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. 
IF dsrcel = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xn1() IN THE SUBROUTINE sampll. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampll TO GENERATE xn1(). 
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2. IF dsrce2 = 'F' THEN THE NEXT N2 LINES CONTAIN THE 
VALUES TO BE READ INTO THE ARRAY xn2(). EACH VAIUE 
IS READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. 
IF dsrce2 = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xn2() IN THE SUBROUTINE sampl2. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl2 TO GENERATE THE ARRAY xn2(). 


3. THE FORMAT 2f10.0 USED FOR INPUT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G., 3146.2 = 3.1462E+03). 


4. IF option = 'CCON' OR 'CCOR!' N1 MUST BE EQUAL TO N2. 


KKKKKKKKKKKKEKEKEKRKEKKKRERKKEKKKER OUTPUT KKKKKKKKKK KKK KKKKREKREREREKKKRKA 


THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
PeeteiN THE FILE 'CONCORFT.OUT'. ADDITIONALLY, THE INPUT 
SEQUENCES AND THE OUTPUT SEQUENCE ARE WRITTEN INTO THE FILE 
"CONCORFT.DAT' TO FACILITATE PLOTTING BY A SEPARATE, USER 
SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 'CONCORFT.DAT' IS: 
€12.6, 2x, e12.6. THE FIRST ENTRY CORRESPONDS TO THE ORDINATE 
VALUE AND THE SECOND ENTRY, THE ABSCISSA VALUE. ADDITIONAL HEADER 
INFORMATION IS WRITTEN INTO 'CONCORFT.DAT!' TO ALLOW FOR CONTROL 
AND LABELING OF EACH PILOT. 


KKK KAKA KK RKKEK KEE RRREKKEKKK EXAMPLE KR KR KKK KKK KARE AEKRKREKRRKKKKEKK 


THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FIIE 
'CONCORFT.TST'. THE PROGRAM READS THE FIRST 4 VALUES INTO »m1() 
(dsrcel = 'F', Nl = 4), AND READS THE NEXT 5 VALUES INTO x2() 
(dsrce2 = 'F', N2 = 5). THE GOAL IS TO CAICUIATE THE LINEAR 
CONVOLUTION OF THE TWO INPUT ARRAYS. 


004 
LCON 
0 


Dele le 

Oo oro 

© O70 @ © "y 
Gore © © © 
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THE RESULTING OUTPUT DATA FILE 'CONCORFT.OUT' IS: 


INPUT DATA SOURCEFILE: CONCORFT.TST 
N1 = 4 dsrcel = F N2 = 5 dsrce2 =F 
option = LCON 


INPUT DATA 

xn () 
n REAL IMAGINARY 
0 - LOOOOOE+01 - OOOOOOE+00 
a . LOOOOOE+01 - OOOOO0E+00 
2 - LOOOOOE+01 . OOOOO0E+00 
3 - LOOOOOE+01 - OOOOOOE+00 

xn2 () 
n REAL IMAGINARY 
0 - 200000E+01 - OOOOQOE+00 
Hl - 200000E+01 - OOOOODE+00 
2 - 200000E+01 - OOOOO0E+00 
S - 2Q0000E+01 - OOOOO0E+00 
= - 200000E+01 - OOOOO0E+00 

OUTPUT DATA 

xn3 () 
n REAL IMAGINARY 
0 - 200000E+01 -894070E-07 
i - 4Q0000E+01 -.421468E-07 
2 - 600000E+01 =. 19497 9n—O7 
3 - 800000E+01 =~ 168987 E-06 
4 - 800000E+01 —.894070E-07 
5 - 6:00000E+01 -421468E-07 
6 - 400000E+01 - /54979E-07 
d - Z00000E+01 . 168587E-06 

NOTE: FOR ITLDUSTRATIVE PURPOSES THE INPUT SEQUENCES COULD HAVE 


BEEN GENERATED BY SPECIFYING dsrce# = 'S' AND WRITING THE 
APPROPRIATE FORTRAN STATEMENTS INITIO THE sampl# SUBROUTINES. 
THE STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE 
WRITTEN INTO THE RESPECTIVE SUBROUTINES BUT ARE ‘COMMENTED 
OUI": 
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character infile*12, option*4, mode*1, dsrcel*1, dsrce2*1 
character title*20 

Gemplex xn1(0:255), »m2(0:255), »xn3(0:255) 

@emolex xtm1(0:255), xtmp2(0:255), xtmp3 (0: 255) 

real nn 


C PROMPT USER FOR MODE: BATCH OR TEST. 


write (*,1115) 
read(*,1117) mode 
if ((mode.eq.'y') .or. (mode.eq. 'Y')) then 
mode = 'yY' 
write(*,1118) 
read(*,1119) infile 
else 
infile = 'CONCORFT.IN' 
endif 
C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 
open (unit=1, file=infile,status='old',iostat=ierr,err=999) 
open (unit=2, file='CONCORFT.OUT') 
open (unit=3 , file='CONCORFT.DAT') 
C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 


read(1,1000) N1, dsrcel 
read(1,1001) N2, dasrce2, option 


if ((dsrcel.eq.'f').or. (dsrcel.eq.'F')) then 


dsrcel = 'F' 
elseif ((dsrcel.eq.'s').or. (dsrcel.egq.'S')) then 

dsrcel = 'S' 
else 

write(*,1009) '‘dsrcel = ', dsrcel 

stop 'The allowed values for dsrceli are: ''F'' or ''S'!'.! 
endif 


if ((dsrce2.eq.'f').or. (dsrce2.eq.'F')) then 


dsrce2 = 'F' 
elseif ((dsrce2.eq.'s').or. (dsrce2.eq.'S')) then 

dsrce2 = 'S' 
else 

write(*,1009) 'dsrce2 = ', dsrce2 

stop 'The allowed values for dsrce2 are: ''F'' or ''S''.! 
endif 
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if { (option. eq. 'ccon'). or. (optlion.eq. "CCON ©) yaaccn 
option = 'CCON' 
title = 'Circular Convolution! 
N3 = N1 
lend = N3 
elseif ((option.eq. 'ccor') .or. (option.eq. 'CCOR')) then 
option = 'CCOR' 
title = 'Circular Correlation! 
N3 = N1 
lend = N3 
elseif ((option.eq. 'lcon') .or. (option.eq. 'LCON')) then 
option = 'LCON' 
title = 'Linear Convolution! 
elseif ( (option.eq. 'lcor').or. (option.eq. 'LOOR')) then 
option = 'LCOR' 
title = 'Linear Correlation! 
else 
write(*,1011) option 
stop 'The allowed values for option are: CCON,CCOR, LCON,LCOR. ' 
endif 


if ((N1.1t.1).or. (N1.gt.128)) then 
write(*,1010) 'Nl = '', Nl 
stop 'The allowed values for Nl are: 1 <= Nl <= 128.' 
elseif ((N2.1t.1).or. (N2.gt.512)) then 
write(*,1010) 'N2 = ', N2 
stop 'The allowed values for N2 are: 1 <= N2 <= 128.' 
elseif ((option.eq. 'COCON') .or. (option.eq. 'CCOR')) then 
if(N1l.ne.N2) then 
write(*,1008) option, N1, N2 
stop 'For option = ''COOR'' or ''CCON'!' Ni must equal N2.' 
endif 
do 14 m0, 10 
if (2**m-N3) 14,13,15 
ES write(*,1007) option, Ni, N2 
stop 'Error, N1 and N2 are not integer powers of 2.' 
14 continue 
iis endif 


C DEFINE CONSTANTS. 


k = 8 
numplts 


6 
C FOR dsrce# = 'F' READ INPUT SEQUENCE(S) FROM THE DATA FILE. 


C FOR dsrce# = 'S' CALL sample# TO GENERATE THE INPUT SEQUENCE(S). 
C THE INPUT SEQUENCES ARE STORED IN THE ARRAYS xnl1(), xn2(). 


Z30 


if (dsrcel.eq.'F') then 
read(1,1002) (xn1(i),i=0,N1-1) 
else 
call sampl1(xn1,N1) 

endif 


if (dsrce2.eq.'F') then 
read(1,1002) (xn2(i),i=0,N2-1) 
else 
call sampl2(xn2,N2) 

endif 


C FOR TEST MODE ECHO INPUT DATA ONTO MONITOR (UNIT = *). 


if (mode.eq.'Y') then 
write(*,1016) infile 
if((N1.1t.8) .or. (N2.1t.8)) k=min(N1,N2) 
write(*,1017) N1, dsrcel, N2, dsrce2 
write(*,1018) option 
write(*,1012) k 
write (*, 1013) 
do 3 1=0, k-1 
write(*,1020) 1, xm1(i), xn2(1i) 
3 continue 
endif 


Seeroten, Tie INPUT SEQUENCES INTO FILE: CONCORFT.DAT. 


write(3,2000) numplts 
write(3,2001) N1 
write(3,*) 'INPUT SEQUENCE xnl1 (REAL)! 
write(3,*) 'SAMPLE # (n)' 
write(3,*) 'REAL xn1()' 
do 54 i=0, Nl1-1 
m =i 
write(3,2010) nn, real(xn1(i)) 
54 continue 


write(3,2001) N1 

write(3,*) ‘INPUT SEQUENCE xnl (IMAGINARY) ' 
write(3,*) 'SAMPLE # (n)' 

write(3,*) 'IMAG xn1()' 

do 55 i=0, N1-1 

m= i 
write(3,2010) nn, aimag(xn1(i)) 

55 continue 


write(3,2001) N2 

write(3,*) ‘INPUT SEQUENCE xn2 (REAL) ' 
write(3,*) 'SAMPLE # (n)' 

write(3,*) "REAL xn2()' 


Zou 


do 56 i=0, N2-1 
hia 
write(3,2010) nn, real(xn2(i)) 
56 continue 


write(3,2001) N2 
write(3,*) 'INPUT SEQUENCE xn2 (IMAGINARY) ' 
write(3,*) 'SAMPLE # (n)' 
write(3,*) 'IMAG xn2()' 
do 57 i=0, N2-1 
nn = 1 
write(3,2010) nn, aimag(xn2(i)) 
57 continue 


C WRITE INPUT DATA INTO FILE: CONCORFT.OUT. 


write(2,1016) infile 
write(2,1017) N1, dsrcel, N2, dsrce2 
write(2,1018) option 
write (2,1014) 
write(2,1015) 'xnl1()' 
do 65 i=0, N1-1 
write(2,1026) i, xn1(i) 
65 continue 
write(2,1015) 'xn2()' 
do 66 i=0, N2-1 
write(2,1026) i, xm2(i) 
66 continue 


C FOR LINEAR CONVOLUTION OR LINEAR CORRELATION BOTH INPUT ARRAYS 
C ARE ZERO-PADDED TO LENGTH N3 = 2**m WHERE 2**m IS GREATER THAN 
Cc OR BOUAL IO NEs N2e=ei 


if ((option.eq. 'LCON') .or. (option.eq. 'LCOR')) then 
N3 = Nl + N2 - 1 
iend = N3 
do 555 m=0, 10 
if(2**m - N3) 555,556,556 
555 continue 
556 N3 = 2**m 


call zeropad(xn1,N1,N3) 
call zeropad(xn2,N2,N3) 
endif 


C THE ARRAYS ARE RESEQUENCED IN BIT-REVERSED ORDER BEFORE THE 
C FFT CALCULATION IS PERFORMED. 


call reversal (N3,m,xn1,xtmp1) 
call reversal (N3,m,xn2,xtmp2) 


moe 


call £ft(N3,m,xtmpl) 
ea) £FC(N3,m,xtmp2) 


C IF option = 'CCON' OR 'LOCON' PERFORM CONVOLUTION COMPUTATION. 


if ((option.eq. 'LOON') .or. (option.eq. 'CCON')) then 
do 22 i=0, N3-1 
xtimp3 (1) = xtmp1 (1) *xtmp2 (1) 
ee cont 1nue 
else 


C IF option = 'CCOR' OR 'LCOR' PERFORM CORRELATION COMPUTATION. 


do 75 i=0, N3-1 
xtmp1(1) = conjg(xtmp1(1))- 
xtmp3(1) = xtmpl (1) *xtmp2 (1) 


75 continue 
endif 


C THE RESULTING ARRAYS ARE RESEQUENCED IN BIT-REVERSED ORDER 
C BEFORE THE INVERSE FFT IS CALCULATED. 


call reversal (N3,m,xtmp3,xn3) 
call invfft(N3,m,xn3) 


Sever le RESULIS INTO FILE: CONCORFT. DAT. 


write(3,2001) iend 
write(3,2003) title 
write(3,*) 'SAMPLE # (n)' 
write(3,*) "REAL xn3()' 

do 58 1=0, iend-1 

nn =i 
write(3,2010) nn, real(xn3(1)) 

58 continue 


write(3,2001) iend 
write(3,2003) title 
write(3,*) 'SAMPLE # (n)' 
write(3,*) 'IMAG xn3()' 

do 59 i=0, iend-1 

m =i 

write(3,2010) nn, aimag(xn3(1) ) 

59 continue 
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C WRITE RESULTS INTO FILE: CONCORFT.OUT. 


67 


999 


write (2,1025) 
write (2; Gls) esas Oe 
do 67 i=0, lend-l 


write(2,1026) i, xm3(1) 


continue 


write(*,1019) 
close (unit=1) 
close (unit=2) 
close (unit=3) 
if(1err.gt.0) then 


write(*,1116) infile, ierr 


ener et 


Co keke JTNPUT FORMAT xxxexxx%x 


1000 


format (13,t11,a1) 


1001 “feormae as] cli ale tec lad) 


1002 


format (2£10.0) 


Co KKKKKKEKKKKKKKKEEKRKRKRKEKRKEKRKEEKEKEEKEEREER 


1007 


1008 


1009 
1010 
LOI 
1012 


TGs 


1014 
LOS 
1016 
1017 


1018 
Loi? 


1020 
LOZ2 
1026 
Li 
1116 


TUT 


Oformat(' option = ',a4,', Nl = ',13,', N2 =8a3)7) eee 
L' option = COON or CCOR, Nl and N2 must be integer powers of 2.') 


Oformat(' option = ',a4,', Nl = ‘71355, 9N2 = 1,13, | Eo 
1' Nl is not equal to N2.') 

format(1x,al10,al,' Error, value not allowed.') 

format (1x,a5,13,2x,'Error, value not allowed.') 

format(1x, 'option = ',a4,2x,'Error, illegal value for option.') 
Oformat(/,' THE FIRST ',i1,' VALUES OF INPUT DATA ARE LISTED ', 


1/,' BELOW, VERIFY THAT THE DATA IS CORRECT. ',/) 
Oformat(t21, 'xnl() 653 x20) ea een Coy 
1' IMAGINARY ' ,t43, 'REAL',t59, ' IMAGINARY ') 


format (///,t21, ‘INPUT DATA',//) 
format (/,t21,a7,/,t6, 'n',t13, 'REAL' ,t29, 'IMAGINARY') 
format (//////,' INPUT DATA SOURCEFILE: ',al2) 
Oformat(' N1 = ',13,5x, 'dsrcel = ',al,10x,'N2 = ',13,5x, 
l'dsrce2 = ',al) 
format (1x, 'option = ',a4) 
Oformat(/,' TABULAR OUTPUT DATA IS STORED IN FILE: CONCORFT.OUT. ' 


1,/,' PLOTTING DATA IS STORED IN FILE: CONCORFT.DAT. ") 
format (t4,11,4(4x,e12.6)) 
format (/// ,t20, 'OUTPUT DATA',//) 
Roma (e419 7.204 elena 
Oformat (1x, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 
1' MODE ? (Y/N) <CR>: ',\,) 
Oformat(///,1x, 'ERROR OPENING INPUT FILE: ',al2,/,1x,'PROGRAM', 
]' ‘TERMINATED. ", //; 1x; ERROR GORE: "31477 777 
format (al) 
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1118 Oformat (/////,1x, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED’, 
1' BY <CR>.',/,' IF YOU DESIRE TO MAKE A TEST RUN USING THE', 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: CONCORFT.TST', 
3 TYPE: CONCORFT.TST <CR>',/,' FILENAME: ',\,) 

19 Sformat (al2) 

2000 format(il) 

2001 format(i3) 

2003 format(a20) 

2010 format(el2.6,2x,e12.6) 


end 
SUBROUTINE: zeropad 
C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY xn() 
rc OF LENGTH N, AND ZERO PADS THE ARRAY TO LENGTH N3 WHERE 
c N3 = N1 + N2 - 1. 
Subroutine zeropad(xn,N,N3) 
complex xn(0:N3-1) 
do 33 i=N, N3-1 
xn(1) = cmp1x(0.0,0.0) 
33 continue 
return 
end 
ec SUBROUTINE: invfft 
C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
Cc x(), COMPUTES THE INVERSE FFT OF THE ARRAY, AND 
cS RETURNS THE RESULTING SEQUENCE IN THE ARRAY x(). 


Subroutine invfft(N,m,x) 
complex x(0:N-1) 


en =N 
C COMPUTE THE COMPLEX CONJUGATE OF THE INPUT DATA. 
do 70 i=0, N-1 


x(i) = conjg(x(i)) 
70 continue 
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C COMPUTE THE FAST FOURIER TRANSFORM OF THE ARRAY. 
call fft(N,m,x) 
C COMPUTE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 


do 80 i=0, N-1 


x(1) = conjg(x(1))/en 
80 continue 
return 
end 
Ee SUBROUTINE: reversal 


C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 
e xtmp(). THE OUTPUT OF THIS SUBROUTINE IS THE COMPLEX 
e ARRAY x() THAT CONTAINS THE INPUT VAQUES IN BIT- 

e REVERSED ORDER. 


subroutine reversal (N,m, xtmp,x) 
complex xtmp(0O:N-1), x(0O:N-1) 


do 10 k=O, N-1 
newaddr = 0 
maddr = k 
do 20 i=0, m-1 
lrmndr = mod (maddr, 2) 
newaddr = newaddr + lrmndr*2** (m-1-1) 
maddr = maddr/2 


20 continue 
x(newaddr) = xtmp(k) 
10 cont inue 
return 
end 
Cc SUBROUTINE: fft 


C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY x(), 
Cc COMPUTES THE FAST FOURIER TRANSFORM (FFT) OF THE 

e ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 

e ORIGINAL ARRAY x(). 


subroutine fft(N,m,x) 
complex x(0:N-1), W, tmp 
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4.O0*atan(1.0) 


iwidth = ispace/2 
do 40 j=0, iwidth-1 
r= s*J 
alpha = 2.0*pi*r/en 
W = cmplx(cos(alpha) ,-Sin(alpha) ) 
do 30 itop=j, N-2, ispace 
ibot = itop + iwidth 
tmp = x(ibot) *W 
x(ibot) = x(itop) - tmp 
x(itop) = x(itop) + tmp 


30 continue 
40 continue 
50 continue 
return 
end 
Ec SUBROUTINE: samp1i1 
C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
e OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
€ xnl(). IF dsrcel = 'S' THEN THE MAIN PROGRAM WILL 
Cc CALL THIS SUBROUTINE TO GENERATE THE VALUES FOR 
EC xnl1(). IF dsrcel DOES NOT EQUAL 'S' THEN THIS 
C SUBROUTINE WILL NOT BE CALLED BY THE MAIN PROGRAM. 


subroutine sampl1(xn1,N1) 
complex xn1(0:N1-1) 


pil = 4.0*atan(1.0) 
enl = N1 


CERKRKRKRKRKKRKEKEKRRERRERRERRRRERRRRRERRRRRRKRRERRRRRERERERERRERERERERERERRRRERERREE 


DEVELOP THE SAMPLING AIGORITHM FOR xnl1() IN THIS SPACE. THE 
STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(),COS()... 
AN EXAMPLE OF AN ALGORTTHM GENERATING VALUES FOR xnl1() IS: 


*kk EXAMPIE *** 


Cry OO Oare 


Zor 


E do 6 i=0, N1-1 
@ xnl(1) = ciple (t26 0-0) 
C6 continue 


CE KKKK KKK KKKKERKKEKKKERKKKKERKEKEKKEKRKEKK RK KKK KRKKRKKK KEKE RRR KKEEKEREKERKEREERKEEKK 


return 
end 


C SUBROUTINE: samp12 


PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xn2(). IF dsrce2 = 'S' THEN THE MAIN PROGRAM WILL 
CALL THIS SUBROUTINE TO GENERATE THE VALUES FOR 
xn2(). IF dsrce2 DOES NOT EQUAL ‘'S' THEN THIS 
SUBROUTINE WILL NOT BE CALLED BY THE MAIN PROGRAM. 


OMN0 42 © 


subroutine sampl2 (xn2,N2) 
complex xn2(0:N2-1) 


pli = 4.0*atan(1.0) 
en2 = N2 


CER KKK KK KK KKEKKKKEKKKEKKEKKKKERKEEKKKEKKEKEKEEKREKKREKEKERRKKKEKKREKREEKRKEKKEKRKEKEREREEER 


DEVELOP THE SAMPLING AIGORTTHM FOR xn2() IN THIS SPACE. THE 
STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(),COS()... 
AN EXAMPLE OF AN ALGORITHM GENERATING VAIJES FOR xn2() IS: 


*k*k* EXAMPILF xxx 
do 7 1=0, N2-1 


xn2(1) = cmplx(2.0,0.0) 
7 econeamue 


OKO OO OOOO 


C¥ERK KEK KRKKK EKKKEKEKKRKEEKREKKREKKERKEKREKKKREKKREKKREKKREKERERKEKRRRRKEKEKRREKEKKREEER 


returm 
end 
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CONCOR . FOR VERSION: 2/03/88 


PURPOSE: THIS PROGRAM PERFORMS EITHER THE LINEAR CONVOLUTION 
(LCON) OR THE LINEAR CORRELATION (LOOR) OF TWO ARRAYS 
OF INPUT DATA. THE PROGRAM CONSISTS OF A MAIN PROGRAM 
AND FOUR SUBROUTINES. THE SUBROUTINE convol PERFORMS 
THE CONVOLUTION OF THE TWO INPUT ARRAYS xni() and xn2() 
AND STORES THE RESULTS IN THE OUTPUT ARRAY yn(). ‘THE 
SUBROUTINE correl PERFORMS THE CORRELATION OF THE TWO 
ARRAYS xn1() AND xn2() ACCORDING TO THE EQUATION: 
Rxnixn2(p) = SUM[xn1(m)*xn2(mtp)]. THE TWO SUBROUTINES 
sampl1 AND SAMPL2 ALLOW THE USER THE OPTION OF 
GENERATING EITHER OF THE TWO INPUT ARRAYS BY WRITING 
THE APPROPRIATE EQUATIONS. IF THE USER CHOOSES TO 
GENERATE THE INPUT DATA BY USING EITHER OF THE sampl 
SUBROUTINES, THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINES USING STANDARD FORTRAN 77 EXECUTABLE STATE- 
MENTS AND THE VALUES GENERATED MUST BE STORED IN THE 
ARRAYS xn1() AND xn2(). THE USER HAS THE OPTION OF 
SELECTING ONE OF TWO OPERATING MODES: BATCH OR TEST. IN 
BATCH MODE THE AMOUNT OF INTERACTION WITH THE USER IS 
MINIMIZED AND IT IS ASSUMED THAT THE INPUT PARAMETERS 
HAVE BEEN STORED IN THE INPUT FILE 'CONCOR.IN'. IN 
TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE AND HAS THE OPTION TO PERFORM A TRIAL RUN 
USING THE DATA STORED IN THE FILE 'CONCOR.TST’. 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT THE 
TEST MODE AND PERFORM A TRIAL RUN WITH THE PRESTORED 
DATA. THE TEST MODE ECHOES PORTIONS OF THE INPUT 
DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF ITS 
ACCURACY. THE OUTPUT OF THE PROGRAM 'CONCOR.FOR!' IS 
STORED IN THE ARRAY yn() IF LINEAR CONVOIUTION (LCON) 
IS SELECTED OR IN THE ARRAY R() IF LINEAR CORRELATION 
(LOOR) IS SELECTED. THE OUTPUT IS STORED IN TABUIAR 
FORM IN THE FILE 'CONCOR.OUT' AND IN A FORM SUITABLE 
FOR PLOTTING IN THE FILE 'CONCOR.DAT'. 


RERERERKRKRRRRKRREKRRERRRRRRRRERERE INPUT KREKKERKREEKRREERRERRRERREKRRERREKEREEE 


THIS PROGRAM ASSUMES THAT THERE ARE TWO SEQUENCES OF INPUT DATA 
STORED IN THE ARRAYS xni() AND xn2(). THE SEQUENCE xni() EXISTS 
IN THE RANGE: nsl <= n <= nel. THE SEQUENCE xn2() EXISTS IN THE 
RANGE: ns2 <= n <= ne2. THE CONSTRAINTS ON THESE VALUES ARE: 
—-128 <= nsl <= nel <= 128 AND -128 <= ns2 <= ne2 <= 128. 

THIS PROGRAM ALLOWS THE USER THE OPTION OF EITHER READING 

THE INPUT ARRAYS FROM A DATA FILE OR OF GENERATING THE INPUT 
VALUES FROM AN ITERATIVE EQUATION IN THE sampl SUBROUTINE(S). 
THE PARAMETERS DESCRIBED BELOW ALLOW THE USER TO SELECT THE 
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DESIRED OPTIONS AND THESE PARAMETERS MUST BE STORED IN THE INPUT 
FILE 'CONCOR.IN'. ALL OF THE READ STATEMENTS USED BY THIS 
PROGRAM REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE 
PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 


NAME TYPE RANGE (ARRAYS) RESTRICTIONS 
option CHARACTER ‘LCON® “OR” Theor 
nsl1 INTEGER -128 <= nsl <= 128 
nel INTEGER -128 <= nel <= 128 
dsrcel CHARACTER ae ORY Sa 
ns2 INTEGER -128 <= ns2 <= 128 
ne2 INTEGER -128 <= ne2 <= 128 
dsrce2 CHARACTER Hie OJ Visi 

xn (n) REAL nsil <= n <= nel nsl1 <= nel 

x2 (i. REAL ns2 <=n <= ne2 ns2 <= ne2 
WHERE : 


option = A CHARACTER STRING OF FOUR LETTERS DENOTING THE 
COMPUTATION DESIRED: 'LCON' = LINEAR CONVOLUTION 
"LCOR' = LINEAR CORRELATION. 


AN INTEGER VALUE THAT SPECIFIES THE STARTING SAMPLE POINT OF 
THE SEQUENCE xnl1(). 


nsi 


nel = AN INTEGER VALUE THAT SPECIFIES THE ENDING SAMPLE POINT OF 
THE SEQUENCE xn1(). 


dsrcel = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn1() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE samplil. 


ns2 = AN INTEGER VALUE THAT SPECIFIES THE STARTING SAMPLE POINT OF 
THE SEQUENCE xn2(). 


AN INTEGER VALUE THAT SPECIFIES THE ENDING SAMPLE POINT OF 
THE SEQUENCE xn2(). 


ne2 


dsrce2 = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn2() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE samp12. 


xnl() = THE FIRST ARRAY OF INPUT DATA. IF dsrcel = 'F' IS 
SPECIFIED, THE USER MUST SUPPLY THE N1 INPUT VALUES IN 
THE FILE (WHERE Nl = nel - nsl +1). IF dsrcel = 'S' 
THEN THE USER HAS ELECTED TO GENERATE THE INPUT 
SEQUENCE xn1() BY WRITING THE APPROPRIATE FORTRAN 
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xn2() = 


STATEMENTS IN THE SPACE ALLOCATED IN SUBROUTINE sampll. 
IF THIS METHOD OF DATA GENERATION IS ELECTED THE PROGRAM 
MUST BE RECOMPILED BEFORE EXECUTION. 


THE SECOND ARRAY OF INPUT DATA. IF dsrce2 = 'F' IS 
SPECIFIED, THE USER MUST SUPPLY THE N2 INPUT VADUES IN 
THE FILE (WHERE N2 = ne2 - ns2 + 1). IF dsrce2 = 'S' 
THEN THE USER HAS ELECTED TO GENERATE THE INPUT 
SEQUENCE xn2() BY WRITING THE APPROPRIATE FORTRAN 
STATEMENTS IN THE SPACE ALLOCATED IN SUBROUTINE samplz2. 
IF THIS METHOD OF DATA GENERATION IS ELECTED THE PROGRAM 
MUST BE RECOMPILED BEFORE EXECUTION. 


NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ****xx**x*x TNPUT FORMAT ****x*%x, 
THE FORM OF THE INPUT DATA FILE IS: 


ENTRIES FORMAT 

option a4 
ns1,nel1,dsrcel id clad teed 
ns2,ne2,dsrce2 147 etl 14,t2t al 

xn1 () ELORO 

xn2 () £10.0 


IF dsrcel = 'F' THEN THE NEXT N1 LINES MUST CONTAIN 
THE VALUES TO BE READ INTO THE ARRAY xnl1(). 

IF dsrcel = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xnl() IN THE SUBROUTINE sampll. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampll TO GENERATE xn1(). 


IF dsrce2 = 'F!' THEN THE NEXT N2 LINES CONTAIN THE 
VALUES TO BE READ INTO THE ARRAY xn2(). 

IF dsrce2 = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xn2() IN THE SUBROUTINE sampl2. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl2 TO GENERATE THE ARRAY xn2(). 


THE FORMAT £176.0 USED FOR INEUT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
WSED (E-G., 3146.2 = 3.1462E+03). 


KEKKEKKKREKREKEKKEKRKEKKEKKREKKKE OUTPUT KEKKKKEKKEKKEKKRKKERKRRKEKRKERRERKEKE 


THE OUTPUT SEQUENCE GENERATED BY THE PROGRAM WILL EXIST ONLY OVER 
THE NON-ZERO RANGE DETERMINED AS FOLLOWS: FOR option = 'LCON' 
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yn(n) EXISTS IN THE RANGE nsl + ns2 <= n <= nel + ne2; FOR option = 
'TCOR' R(p) EXISTS IN THE RANGE ns2 - nel <= p <= ne2 - nsl. THE 
INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR FORM 
IN THE FILE 'CONCOR.OUT!. ADDITIONALLY, THE INPUT SEQUENCES AND 
THE OUTPUT SEQUENCE ARE WRITTEN INTO THE FILE 'CONCOR.DAT'! TO 
FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED PROGRAM. ‘THE 
FORMAT OF THE DATA IN 'GONCOR- DAT" 1S: E1256, 2x 5gel2.0. te 
FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE AND THE SECOND ENTRY, 
THE ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 
'CONCOR. DAT! TO ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 


CERRREKRKKKRERERRRRRRRRRRRRRRERREERE EXAMPLE KEREEKKRERERKKKREREKREERERRREERRERE 


OSA OOO A OO O70 4 O58 OOO O22 OOO 7070700 2 OO). Oa 


THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE 
"CONCOR.TST . THE PROGRAM READS THE FIRST 4 VALUES INTO xn1() 
(dsrcel = 'F'), AND READS THE NEXT 5 VALUES INTO xn2() (dsrce2 = 
'F'). THE GOAL IS TO COMPUTE THE LINEAR CONVOLUTION OF THE 

TWO INPUT ARRAYS. 


THE SEQUENCE xni() EXTENDS FROM -3 TO O (nsl = -3, nel = 0). 
xi(n) = 1.0 FOR nsl <=n <— nel 
0.0 OTHERWISE 


THE SEQUENCE xn2() EXTENDS FROM O TO 4 (ns2 = 0, ne2 = 4). 
xm2(n) = ntl FOR ns2 <=n <= ne2 
= 0.0 OTHERWISE 


THE APPROPRIATE INPUT FILE ENTRIES ARE: 


LCON 
eS OOOO e 
O000 0004 E 
LO 
10 
1.0 
1.0 
do 
ZO) 
520 
4.0 
D0 


THE RESULTING OUTPUT DATA FILE 'CONCOR.OUT' IS: 


INPUT DATA SOURCEFILE: CONCOR.TST 
nsi= -<-3 nel = QO dsrcel 
ns2 = 0 ne2 = 4 dsrce2 
option = LCON 


il Al 
ty 


242 


INPUT DATA 
ra xn (n) 


3 - LOOOOOE+-01 
=2 - LOOOOOE+01 
= - LOOOOOE+01 

O - LOOOOOE+01 


2 


xn2 (n) 


- LOOOOOE+01 
- 200000E+01 
- 300000E+01 
- 400000E+01 
- 500000E+01 


Hm WN FR © 


OUTPUT DATA 


=3 - LOOOOOE+01 
=e - 300000E+-01 
- 600000E+01 
- LOOOOOE+02 
- L4OQ00E+02 
- L2ZOQ00E+02 
- IO0000E+01 
- S|0OO000E+01 


{ 
m WM FOF 


ec 

C 

e 

G 

ce 

G 

c 

i. 

e 

© 

ce 

cS 

c 

c 

& 

C 

c 

C 

S 

e 

@ 

C n yn(n) 
e 

ec 

s 

e 

e 

ec 

ce 

c 

¢ 

c 

S 

C NOTE: FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCES xn1/() 
e AND xn2() COULD HAVE BEEN GENERATED BY WRITING THE 
ce APPROPRIATE STATEMENTS IN SUBROUTINES sampli1 AND 

c AND sampl2. THE STATEMENTS THAT COULD BE USED TO 

e ACCOMPLISH THIS ARE WRITTEN INTO THE SUBROUTINES BUT 
e ARE ‘COMMENTED OUT’. 

c 
e 
C 


KKKKKKKK KEK KKKKKEKEREREEKEEK MATIN PROGRAM KKK KKK KKK KHKARAKKAKKKKEKKKE 


character infile*12, option*4, mode*l1, dsrcel*1, dsrce2*1 
character ylab1*5, title*18, xlabl*12 

real xn1(-128:128) ,xn2(-128:128), yn(-256:256), R(-256:255) 
real nn 

integer p 
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C PROMPT USER FOR MODE: BATCH OR TEST. 


write (*,1115) 
read(*,1117) mode 
if ((mode.eq.'y').or. (mode.eq. 'Y')) then 
mode = 'y' 
write (*,1118) 
read(*,1119) infile 
else 
infile = 'CONCOR.IN' 
endif 
C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 
open (unit=1, file=infile, status='old', iostat=ierr, err=999) 
open (unit=2, £ile='CONCOR.OUT') 
open (unit=3, file='CONCOR. DAT') 
C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 
read(1,1000) option 
read(1,1001) nsl, nel, dsrcel 
read(1,1001) ns2, ne2, dsrce2 


if ((option.eq. 'lcon') .or. (option.eq.'LCON')) then 
option = 'LCON' 


ylabl = 'yn(n) ! 
xlabl = 'SAMPLE # (n)' 
title = 'Linear Convolution! 


ns3 = nsl + ns2 
ne3 = nel + ne2 
elseif ((option.eq. 'lcor') .or. (option.eq.'LCOR')) then 
option = 'LCOR! 
ylabl = 'R(p) ' 
xlabl = 'SAMPLE # (p)' 
title = 'Linear Correlation' 
ns3 = ns2 - nel 
ne3 = ne2 - nsl 
else 
write(*,1011) option 
stop 'The allowed values for option are: ''LCON'' or ''LCOR''.! 
endif 


if((ns1.1t.-128) .or. (nsl.gt.128)) then 

write(*,1010) 'nsl = ', nsl 

stop 'The allowed values for nsl are: -128 <= nsl <= 128.' 
elseif ((ns2.1t.-128) .or. (ns2.gt.128)) then 

write(*,1010) 'ns2 = ', ns2 

stop 'The allowed values for ns2 are: -128 <= ns2 <= 128.' 
endif 
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ie ( (nel -1C.-128) .or. (nel.gt.128)) then 

write(*,1010) 'nel = ', nel 

stop 'The allowed values for nel are: ~-128 <= nel <= 128.' 
elseif ((ne2.1t.-128) .or. (ne2.gt.128)) then 

write(*,1010) 'ne2 = '', ne2 

stop 'The allowed values for ne2 are: -128 <= ne2 <= 128.' 
endif 


if(nel.1t.ns1) then 

write(*,1120) 'nsl = ', nsl, 'nel = ', nel 

stop 'The value nel must be greater than or equal to nsl.' 
endif 


if (ne2.1t.ns2) then 

write(*,1120) 'ns2 = ', ns2, 'ne2 = ', ne2 

stop 'The value ne2 must be greater than or equal to ns2.' 
endif 


if ((dsrcel.eq.'f').or. (dsrcel.eq.'F')) then 
dsrcel = 'F'! 
elseif ((dsrcel.eq.'s').or. (dsrcel.eq.'S')) then 
dsrcel = 'S' 
else 
write(*,1009) 'dsrcel = ', dsrcel 
stop 'The allowed values for dsrcel are: ''F'' or ''S'',' 
endif 


if ( (dsrce2.eq.'f') .or. (dsrce2.eq.'F')) then 
dsrce2 = 'F' 

elseif ((dsrce2.eq.'s') .or. (adsrce2.eq.'S')) then 
dsrce2 = 'S' 


else 

write(*,1009) 'dsrce2 = ', dsrce2 

stop 'The allowed values for dsrce2 are: ''F'' or ''S'!.! 
endif 


DEFINE CONSTANTS ACCORDING TO THE FOLLOWING SCHEME: 


N1 = THE NUMBER OF SAMPLES IN THE SEQUENCE »m1(). 
N2 = THE NUMBER OF SAMPLES IN THE SEQUENCE xn2(). 
N3 = THE NUMBER OF SAMPLES IN THE OUTPUT SEQUENCE. 
k = A DUMMY VARIABLE USED FOR WRITING THE OUTPUT TO THE MONITOR. 


numplts = A CONTROL PARAMETER FOR THE DATA STORED IN 'CONCOR.DAT'. 


N1l = nel - nsl +1 
N2 = ne2 - ns2 + 1 
N3 = ne3 - ns3 + 1 
<= 

numplts = 3 
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C FOR dsrce# 'F' READ INPUT DATA FROM THE DATA FILE. 
C FOR dsrce# 


C THE INPUT DATA IS STORED IN THE ARRAYS xnl(), »m2(). 


if (dsrcel.eg.'F') then 
read(1,1002) (xn1(1),1=ns1,ne1) 
else 
call sampli(ns1,nel1,xn1) 

endif 


if (dsrce2.eq.'F') then 
read(1,1002) (xn2(1),1=ns2,ne2) 
else 
call sampl2 (ns2,ne2,xn2) 

endif 


C FOR TEST MODE ECHO INPUT DATA CNX MONITOR (UNIT = *). 


1f(mode.eq.'Y') then 
write(*,1016) infile 

if ((N1.1t.8).or. (N2.1t.8)) k=min(N1,N2) 
write(*,1017) 'nsl = ',nsl, 'nel = ',nel, 'dsrcel 
write(*,1017) 'ns2 = ',ns2, 'ne2 = ',ne2, 'dsrce2 
write(*,1018) option 
write(*,1012) k 


write(*,1013) 
indxl = nsl 
indx2 = ns2 


do 3 1=0, k-1 
write(*,1020) indxl, xn1(indxl1), indx2, xn2(indx2) 
indx1 = indxi+1 
indx2 = indx2+1 
3 continue 
endif 


C WRITE THE INPUT SEQUENCES INITIO FILE 3GGneoRn sna. 


write(3,2000) numplts 
write(3,2001) N1 

write(3,*) ‘INPUT SEQUENCE xn1(n)'! 
write(3,*) 'SAMPLE # (n)' 
write(3,*) 'xnil(n)' 

do 55 n=nsl1, nel 

nn =n 
write(3,2010) nn, xnl1(n) 

55 continue 


write(3,2001) N2 

write(3,*) 'INPUT SEQUENCE xn2(n)' 
write(3,*) 'SAMPLE # (n)' 
write(3,*) 'xn2(n)' 
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'S' CALL sampl# TO GENERATE THE INPUT DATA. 


' dsrcel 
' dsrce2 


do 56 r=ns2, ne2 
nn =n 
write(3,2010) nn, xn2(n) 
56 continue 


C WRITE INPUT DATA INTO FILE: CONCOR.OUT. 


write(2,1016) infile 
write(2,1017) 'nsl = ',ns1, 'nel 
write(2,1017) 'ns2 = ',ns2, 'ne2 
write(2,1018) option 
write(2,1025) 'INPUT'! 
write(2,1015) 'n', 'xnl(n)! 
do 4 r=nsl1, nel 
write(2,1026) n, xn1(n) 
4 continue 


Pele cdsrcel — ' dercel 
rne2, 'dasrce2 ' dsrce2 


fmeeee(2,1015) 'n', 'xn2(n)' 
do 5 n=ns2, ne2 
write(2,1026) n, xn2(n) 
5 continue 


C IF option = 'LCON' CALL convol TO PERFORM CONVOLUTION COMPUTATION. 


if (option.eq.'LCON') then 
call convol(ns1,N1,ns2,N2,ns3,ne3,xn1,xn2,yn) 


C IF option = 'LCOR' CALL correl TO PERFORM CORRELATION COMPUTATION. 


else 
call correl (ns1,nel1,ns2,ne2,ns3,ne3,xn1,xn2,R) 
endif 


C WRITE RESULIS INTO FILE: CONCOR.DAT. 


write(3,2001) N3 
write(3,2003) title 
write(3,2004) xlabl 
write(3,2005) ylabl 
do 57 n=ns3, ne3 
nn =n 
if (option.eq.'LCON') then 
write(3,2010) nn, yn(n) 
else 
write(3,2010) nn, R(n) 
endif 
57 continue 
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C WRITE RESULIS INTO FILE: CONCOR.OUT. 


if (option.eg.'LCON') then 
write(2,1025) 'OUTPUT' 
wrte(2, 1015) ) mie yas 
do 9 r=ns3, ne3 
write (2,1026) n, yn(n) 
9 continue 


else 
write(2,1025) '‘OUTPUT' 
Wrlte(2,J015) {potjeyoao! 
do 11 p=ns3, ne3 
write(2,1026) p, R(p) 
jh continue 
endif 


write(*,1019) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(ierr.gt.0) then 
write(*,1116) infile, ierr 
endif 


CC xkRKKKK INPUT FORMAT xx**xekx 


1000 format(aé4) 
1001 “formar (4, cll, 14,621 ad) 
1002 format(f10.0) 


Co KRRKKRKKKRKRERRRRRRRRERRRRRRRERRREEE 


1009 format(1x,al0,al,' Error, value not allowed.') 

1010 format(1x,a6,14,2x,'Error, value not allowed.') 

1011 format(1x, 'option = ',a4,2x,'Error, illegal value for option.') 

1012 Oformat(/,' THE FIRST ',il,' VALUES OF INPUT DATA ARE LISTED ', 
1/,' BELOW, VERIFY THAT THE DATA IS CORRECT.',/) 

1013 format(t7, 'n',t12, 'xn1() ',t28, 'n',t33, 'xn2() ') 

1010S ‘format(/,t7 altia ace) 

1016 format(///,' INPUT DATA SOURCEFILE: ',al2) 

1017 format(1x,a6,14,3x,a6,14,3x,a9,al) 

1018 format(l1x, 'option = ',a4) 

1019 Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: CONCOR.OUT.', 
1/,' PLOTTING DATA IS STORED IN FILE: CONCOR.DAT.') 

1020 format(t4,i4,t10,e10.4,t25,i4,t31,e10.4) 

1025. “format(///-t7-ac, DATA) 

1026 format(t4,i4,t12,e12.6) 

1115 Oformat(1x,'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 
1' MODE ? (Y/N) <CR> : ',\,) 
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1116 Oformat(///,1x,'ERROR OPENING INPUT FILE: ',al12,/,1x,'PROGRAM', 
fe teRMaNATED.',//,1x, "ERROR CODE:',14,/////) 

1117 format(al) 

1118 Oformat (/////,1x,'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
ieee) <CR>. "7, IF YOU DESIRE TO MAKE A TEST RUN USING THE", 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: CONCOR.TST', 
B TYPE OONGCORs lon <Che 7 PIL ENAMES as \;) 

1119 format(al2) 

me Ome rormat (2x,a6,14,5x,a6,14,5x, 'Error.') 

2000 format(il) 

2001 format(i3) 

2003 format(al8) 

2004 format(al2) 

2005 format(ad) 

2010 format(el2.6,2x,e12.6) 


end 


€ SUBROUTINE: convol 


PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE ARRAYS xnl1() and 
xn2(), COMPUTES THE LINEAR CONVOLUTION OF THE ARRAYS, 
AND RETURNS THE RESULTING SEQUENCE IN THE ARRAY yn(). 


AAD 


subroutine convol (ns1,N1,ns2,N2,ns3,ne3,xn1,xn2, yn) 
feed (—128: 128), xn2(-128:128), yn(—256: 256) 


a 0 


do 10 n=ns3, ne3 
yn(n) = 0.0 
do 20 i=j, 0, -1 
if ((j-1.1t.N2) .and. (1.1t.N1)) then 
yn(n) = yn(n) + xn2(ns2+j-1) *xn1(ns1+1) 
endif 
20 continue 
w=jp+1 
10 continue 


returm 
end 
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SUBROUTINE: correl 


PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE ARRAYS xnl1() AND 
xn2(), AND COMPUTES THE LINEAR CORRELATION OF THE ARRAYS 
BY THE FORMULA R(p) = SUM[xn1(n)*xn2(mtp)] FOR 
ns3 <= p <— ne3. 


subroutine correl(ns1,nel,ns2,ne2,ns3,ne3,xn1,xn2,R) 
real xn1(-128:128), xn2(-128:128), R(-256:256) 
integer p 


jmee 
do 30 p=ns3, ne3 
R(p) = 0.0 
do 40 i=j, 0, -1 
indexl = nel-j+1 
index2 = ns2+1 
if ( (indexl.ge.ns1) .and. (index2.le.ne2)) then 
R(p) = R(p) + xnl(index1) *xn2 (index2) 
endif 
continue 
BS Sgro 
continue 


return 
end 


SUBROUTINE: sampl1 


PURPOSE: ‘THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xnl(). IF dsrcel = 'S' THEN THE MAIN PROGRAM WILL CALL 
THIS SUBROUTINE TO GENERATE THE VALUES FOR xnl1(). 
IF dsrcel DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 
NOT BE CALLED BY THE MAIN PROGRAM. 


subroutine sampl1(nsl1,ne1,xn1) 
real xn1(-128:128) 


CEKKRKRKRKEKKKKEKKKKKKKKKKEKKKEREKKERKEKRERERKEKRRKEKEKEKREREKRREREKRERREKRKREREKRKEKRERRRERERE 


QOAQAAQ 


DEVELOP THE SAMPLING ALGORITHM FOR xnl1() IN THIS SPACE. THE 
STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(),COS()... 
AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xn1() IS SHOWN. 
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C *xk* EXAMPIE xxx 
e 

eS do 6 r=nsi1, nel 
ec xnl(n) = 1.0 

© 6 continue 


ERK KK KKK KKK KEKE RREKREKKRERERKRRRERRRER EERE ERE RRRREERRRERRRRERRRERKREERE 


return 
end 


€ SUBROUTINE: samp1l2 


PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xn2(). IF dsrce2 = 'S' THEN THE MAIN PROGRAM WILL CALL 
THIS SUBROUTINE TO GENERATE THE VALUES FOR xn2(). 

IF dsrce2 DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 
NOT BE CALLED BY THE MAIN PROGRAM. 


Oy OL © 


subroutine sampl2 (ns2,ne2,xn2) 
real xn2(-128:128) 


CHEEK KK KK KK KEKE EK RRR RRR EERE RRRRRRRRERRRERRERRERRRRERRERRERRERRRRRERREREE 


DEVELOP THE SAMPLING ALGORITHM FOR xn2() IN THIS SPACE. ‘THE 
STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(),COS()... 
AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xn2() IS SHOWN. 


kkk EXAMPLE x*x** 
do 7 r=ns2, ne2 


man) = n+ 1.0 
7 continue 


(VO OOD OOOO) 
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return 
end 


Zod. 
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DUFPEOsTOk VERSION: 2/03/88 


PURPOSE: THIS PROGRAM COMPUTES THE ITERATIVE SOLUTION TO A 
LINEAR, TIME-INVARIANT (LTT) DIFFERENCE EQUATION. 
THE DIFFERENCE EQUATION MUST BE IN THE FORM: 
y(ns) = a(1)*y(ns-1) + ... + a(N)¥*y(ns-N) + 

b(0)*x(ms) + bii)i*x(ns—-1) + . 72 4 9b( Lb) <x (ms-Eie 

THE PROGRAM CONSISTS OF A MAIN PROGRAM AND TWO 
SUBROUTINES. SUBROUTINE diffeq IS CALLED BY THE MAIN 
PROGRAM TO ITERATIVELY SOLVE THE DIFFERENCE EQUATIONS AND 
SUBROUTINE xgen ALLOWS THE USER THE OPTION OF GENERATING 
THE INPUT SEQUENCE x() BY WRITING THE APPROPRIATE 
EQUATIONS. IF THE USER ELECTS TO GENERATE THE SEQUENCE 
x() BY USING xgen THEN THE PROGRAM MUST’ BE COMPILED 
AGAIN BEFORE EXECUTION. THE USER HAS THE OPTION OF 
SELECTING ONE OF TWO OPERATING MODES: BATCH OR TEST. 
IN BATCH MODE THE AMOUNT OF INTERFACE WITH THE USER 
IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT DATA 
HAS BEEN STORED IN THE DEFAULT FILE 'DIFFEQ.IN'. IN 
TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE OR HAS THE OPTION OF PERFORMING A TEST RUN 
USING THE INPUT DATA STORED IN THE FILE ‘“DEFFEO. ISI. 
ET IS RECOMMENDED THAT PIRST-TiIMe USERS Samier irr 
TEST MODE AND MAKE A TRIAL RUN WITH THE PRESTORED 
INPUT DATA. THE TEST MODE ECHOES PORTIONS OF THE 
INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF 
ITS ACCURACY. BOTH BATCH AND TEST MODES ALLOW THE 
USER TO SOLVE UP TO FOUR DIFFERENCE EQUATIONS IN A 
SINGLE PROGRAM EXECUTION. THE OUTPUT OF THE PROGRAM 
"DIFFEO.FOR' IS STORED IN THE ARRAY y(). THE OQUTEUT is 
STORED IN TABULAR FORM IN THE OUTPUT FILE 'DIFFEQ.FOR' 
AND IN A FORM SUITABLE FOR PLOTTING IN THE FILE 
‘DEE EEO. Ar 


CHEKKKKKAKKKKKKRKKRKRKRKAKRERRRRERA INPUT RR RRR KAKA HAKKAR ARAKRKRKRKRKE 
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THIS PROGRAM ASSUMES THAT EACH DIFFERENCE EQUATION IS IN THE 
CANONICAL FORM: 


y(ns) = aQ)47 (ss) + 2.2. Ay Ss) 

b(0)*x(ns) + b(1)*x(ns-1) + ... + b(L) *x(ns-L) 
L = A NON-NEGATIVE INTEGER, THE NUMBER OF INPUT DELAYS. 
N = A NON-NEGATIVE INTEGER, THE NUMBER OF OUTPUT DELAYS. 
a(l)...a(N) = REAL COEFFICIENTS OF THE OUTPUT TERMS. 
b(0)...6(L) = REAL COEFFICIENTS OF THE INPUT TERMS. 
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THE INPUT PARAMETERS SHOULD BE STORED IN A FILE NAMED 


Beier. IN* . 
REQUIRE FORMATTED INPUT. 


ie THE 
DENOTE 


ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
PARTICULAR ATTENTION SHOULD BE PAID 
FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
"REAL' NUMBERS. THE INPUT PARAMETERS REQUIRED BY THE 


PROGRAM ARE LISTED BELOW. 


NAME 
numsys 
L 

N 
nstop 
xsorce 
b(k) 

a (K) 

y (Kk) 

x (ns) 


numsys 


AN 


meee RANGE (ARRAYS) RES eens 
INTEGER 1 <= numsys <= 4 
INTEGER 0 <= L <= 128 
INTEGER QO <=N <= 128 
INTEGER O <= nstop <= 300 
CHARACTER TE ORS: 
REAL OF i, Se., £ Ge<— Lo<= 128 
REAL 1 Zoe, 0 ee O <=N <= 128 
REAL = eens ee 1 <=N <= 128 
REAL 6 i be 7, NSeOe QO <= nstop <= 300 


= THE NUMBER OF SYSTEMS TO BE EVALUATED. 
THIS INTEGER VALUE MUST OCCUR AT THE TOP OF THE INPUT 
FILE. IT DELINEATES THE NUMBER OF SYSTEMS TO BE READ BY 
THE PROGRAM AND ANALYZED. FOR EACH SYSTEM (1...numsys) 
THE PARAMETERS BELOW MUST APPEAR IN THE INPUT FILE. 


INTEGER VALUE THAT SPECIFIES THE MAXIMUM NUMBER OF DELAYS 


IN THE INPUT SEQUENCE. 


AN 
IN 


nstop = 


xXSOrce 


b(k) = 


INTEGER VALUE THAT SPECIFIES THE MAXIMUM NUMBER OF DELAYS 
THE OUTPUT SEQUENCE. 


AN INTEGER VALUE THAT SPECIFIES THE LARGEST TIME INDEX 
(ns) FOR WHICH THE DIFFERENCE EQUATION IS TO BE SOLVED. 


= A CHARACTER VAIUE OF 'F' OR 'S! DENOTING WHETHER THE 
INPUT SEQUENCE x() IS TO BE READ FROM THE INPUT FIIE (F) 
OR TO BE GENERATED (S) USING THE SUBROUTINE xgen. ‘THIS 
LATER OPTION IS ATTRACTIVE WHEN nstop IS A LARGE NUMBER 
AND THE INPUT SEQUENCE x() CAN BE READILY DESCRIBED BY AN 
ANALYTICAL EXPRESSION. IF xsorce = 'S' THE USER MUST 
PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN THE SPACE 
PROVIDED IN SUBROUTINE xgen AND THE PROGRAM MUST BE 
RECOMPILED BEFORE EXECUTION. 


REAL COEFFICIENTS OF THE INPUT SEQUENCE x(ns-k) IN THE 
ORDER: b(0), b(1), .--, b(L). 
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a(k) = REAL COEFFICIENTS OF THE OUTPUT SEQUENCE y(ns-k) IN THE 
ORDER: a(1), a(2), ..-, a(N). IF N = 0 THEN THE EQUATION 
IS NON-RECURSIVE AND NO a(k) COEFFICIENTS SHOULD BE IN 
THE INPUT FILE. 

y(k) = THE INITIAL CONDITIONS FOR THE OUTPUT SEQUENCE IF THE 


DIFFERENCE EQUATION IS RECURSIVE, I.E., N> 0. THIS 
PROGRAM CALCULATES THE SOLUTION TO THE DIFFERENCE 
EQUATION FROM ns = O TO ns = nstop THEREFORE THE INITIAL 
CONDITIONS y(-N) TO y(-1) MUST BE PROVIDED IN THE INPUT 
FILE IN THE ORDER: y(-N), V(-NGD ee ey ee ee 
THEN THE EQUATION IS NON-RECURSIVE AND NO INITIAL 
CONDITIONS SHOULD BE GIVEN IN THE INPUT FILE. 


x(ns) = THE INPUT SEQUENCE. IF xsorce = 'F' THEN THE INPOT 
SEQUENCE x(0), ..-., X(nstop) MUST BE PROVIDED BY THE USER 
IN THE INPUT FILE. IF xsorce = 'S' THEN THE USER HAS 
ELECTED TO GENERATE THE INPUT SEQUENCE BY PROVIDING THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SUBROUTINE xgen. 


NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 
FOLLOWING THE CAPTION: ******%* INPUT FORMAT *x%%kk#*, 
THE FORM OF THE INPUT DATA FILE IS: 


LINE # ENTRIES FORMAT 
il numsys ae 
2 L,N,nstop, xsorce 13, C11 i37tzl, 13, coda 
NEXT NB LINES b(k), k=0,1,...,L 6£10.0 
NEXT NA LINES a(k), k=1,...,N 6£10.0 
NEXT NY LINES y(k), k= -N,...,-1 6£10.0 
NEXT NX LINES x(ns), ns= 0,...,nstop 6£10.0 
WHERE: NB = 1 + (L/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 
NA = 0 IF N = 0 OR 
NA = 1 + ((N-1)/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 
NY = 0 IF N = 0 OR 
NY = 1+ ((N-1)/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 
NX = 0 IF xsorce = 'S' OR 
NX = 1+ (nstop/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 


IF xsorce = 'F'! 
*NOTE: FOR numsys > 1 THE FORMAT OF LINES 2... IS REPEATED. 
THE FORMAT £10.0 USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 


AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 
3146.2 = 3.1462E+03). 
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ie 
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CHOP Oar a- OO (yee) 


THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
BemeeN THE FILE 'DIFFEQ.OCUT'. ADDITIONALLY, THE INPUT SEQUENCE 
AND THE OUTPUT SEQUENCE ARE WRITTEN INTO THE FILE 'DIFFEQ.DAT' TO 
FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED PROGRAM. ‘THE 
Bee) OF THE DATA IN 'DIFFHO.DAT’ IS; e12.6, 2X, e12.6. THE FIRST 
ENTRY CORRESPONDS TO THE ORDINATE VALUE, AND THE SECOND ENTRY, THE 
ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 
"DIFFEQ.DAT' TO ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 


CREKKKKEKKKRKKREKKRKE REE RE REREERERKK EXAMPLE RXR KKAKKAKAKKKKKKKKRKRKEKREREK 
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THE INPUT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED IN 
iaeeeeMPLE INPUT FILE 'DIFFEQ.TST' AND CAN BE USED FOR A TRIAL 
RUN IN TEST MODE. 


DIFFERENCE EQUATION: 
y(ns) = 1.2*y(ns-1) + 1.5*x(ns) 


GOAL: TO OBTAIN THE SOLUTION TO THIS DIFFERENCE EQUATION FOR 
ns = 0 TO ns = 10, GIVEN: x(0)...x(10) = 100.0 AND 
ie INTETAL CONDITION y(=1) = 25.0: 


ieee tNPUL FILE IS; 


i 

000 001 010 E 

va 

ae 

Zo. 0 

100.0 100.0 100.0 100.0 LOO 20 LOOaC 
£00. 0 100.0 OO) 100.0 100.0 


meee oULTING OUTPUT FILE 'DIFFEQ.OCUOT® IS: 
INPUT DATA FOR PROBLEM # 1 
PROBLEM # 1 INPOT DATA SOURCEFPILE: DIFFEQ.TST 
THE NUMBER OF INPUT DELAYS: L= 0 


THE NUMBER OF OUTPUT DELAYS: N= 1 
THe VALUE OF nstop IS: ~ 10 


ZS 


THE COEFFICIENTS b(0), b(1), ..-, B(L) ARE: 


- L500CCET On 


THE COEFFICIENTS a(1), ..., a(N) ARE: 


- LZOOOOE+01 

OUTPUT DATA FOR PROBLEM # 1 

ns x (ns) y (ns) 
eal - OOOOO00E+00 - 250000E+02 
O - LOOOOOE+03 - LBOOOOE+03 
it - LOOOOOE+03 - 366000E+03 
2 - LOOOOOE+03 - 589Z00E;505 
3 - LOOOOOE+03 -857040E+03 
~ - LOOOOOE+03 -117845E+04 
5 - LOOOOOE+03 - 156414E+04 
6 - LOOOO0OE+03 « 202697E+04 
Z - LOOOOOE+03 -258236E+04 
8 - LOOOOOE+03 - 324883E+04 
g - LOOOO0E+03 -404860E+04 
10 - LOOOOOE+03 2 000832E+04 


---------------- END OF PROBLEM # 1 ---------------- 


FOR ILUUSTRATIVE PURPOSES THE INPUT SEQUENCE x() COULD HAVE BEEN 
GENERATED BY SPECIFYING xsorce = 'S' AND WRITING THE APPROPRIATE 
FORTRAN STATEMENTS INTO SUBROUTINE xgen. THE STATEMENTS THAT 
COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN INTO THE SUBROUTINE 
BUT ARE 'COMMENTED OUT'. 


OOOO0 GO 180070 1010000 OO O1'O OOO O:0O O18 One aoe 
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character infile*12, mode*l, xsorce*l 
real a(1:128), b(0:128), y(-128:300), x(-128:300), ii 


C PROMPT USER FOR MODE: BATCH OR TEST. 


write(*,1115) 

read(*,1117) mode 

if ((mode.eq. 'Y') .or. (mode.eq.'y')) then 
mode = 'yY' 
write (*,1118) 

read(*,1119) infile 

else 
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infile = 'DIFFEQ.IN' 
endif 


C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 


open (unit=1, file=infile,status='old', iostat=l1err,err=999) 
open (unit=2, file='DIFFEQ.OUT') 
open (unit=3, file='DIFFEQ.DAT') 


C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 
read(1,1000) numsys 


if ((numsys.le.0O) .or. (numsys.gt.4)) then 
write(*,1126) numsys 
stop 'The allowed values for numsys are 1 <= numsys <= 4.' 
endif 

numplts = 2*numsys 

write(3,2000) numplts 


do 10 nprob=1, numsys 
read(1,1001) L, N, nstop, xsorce 


Mei. 1t.0).or.(L.gt.128)) then 

mice (*,1124) norob, 'L', L 

stop 'The allowed values for ''L'' are: 0 <= L <= 128.' 
endif 


ici. lt.O).or.(N.gt.128)) then 

write(*,1124) nprob, 'N', N 

stop 'The allowed values for ''N'' are: 0 <=N <= 128.' 
endif 


if ((nstop.1t.0).or. (nstop.gt.300)) then 

write(*,1127) nprob, nstop 

stop 'The allowed values for nstop are: 0 <= nstop <= 300.' 
endif 


if ((xsorce.eg.'F').or. (xsorce.eq.'f')) then 


xsorce = 'F'! 
elseif ((xsorce.eg.'S') .or. (xsorce.eq.'s')) then 

xsorce = 'S' 
else 

write(*,1128) nprob, xsorce 

stop 'The allowed values for ''xsorce'' are: ''F'' or ''S't',! 
endif 


C INITIALIZE EACH ARRAY TO ZERO BEFORE EACH RUN. 


data a/128*0.0/, b/129*0.0/ 
data y/429*0.0/, x/429*0.0/ 


2D/ 


C READ THE COEFFICIENTS b(), a() AND THE INITIAL CONDITIONS 
C y(-N)...y(-l). 


read(1,1002) (b(k), k=0,L) 
if(N.gt.0) then 

icstart = -N 

read(1,1002) (a(k), k=1,N) 

read(1,1002) (y(k), k=icstart,-1) 
endif 


C FOR xsorce = 'F' READ THE ARRAY x() FROM THE INPUT FILE. 
C FOR xsorce = 'S' CALL xgen TO GENERATE THE ARRAY x(). 


if (xsorce.eq.'F') then 
read(1,1002) (x(K), kK=0,nstop) 
else 
call xgen(x,nstop,nprob) 
endif 


C FOR TEST MODE ECHO INPUT PARAMETERS ONTO MONITOR (UNIT = *). 


if (mode.eq.'Y') then 
write(*,1007) 
write(*,1120) nprob, infile 
write(*,1110) 'INPUT', 'L', L 
write(*,1110) 'OUTPUT', 'N', N 
write(*,1112) nstop 
write(*,1004) 
write(*,1005) (b(k) ,k=0,L) 
1if(N.eq.0) then 
write (*,1131) 
else 
write(*,1006) 
write(*,1005) (a(k) ,k=1,N) 
endif 
write(*,1123) nprob 
pause 'END OF RUN, STRIKE <CR> WHEN READY TO CONTINUE. ' 
endif 


C WRITE INPUT DATA INTO FILE: DiI-teesoul. 


write(2,1008) 'INPUT', nprob 
write(2,1120) nprob, infile 
write(2,1110) 'INPUT', 'L', L 
write(2,1110) ‘OUTPUT’, 'N', N 
write(2,1112) nstop 
write(2,1004) 

write(2,1005) (b(k),k=0,L) 
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if(N.eq.0) then 
write(2,1131) 

else 
write(2,1006) 
write(2,1005) (a(k) ,K=1,N) 

endif 


Seer le THE INPUT SEQUENCE INTO FILE: DIFFEQ.DAT. 


write(3,2001) nstop + 1 
write(3,*) 'INPUT SEQUENCE x(ns) ' 
write(3,*) 'SAMPLE # (ns)' 
write(3,*) 'x(ns)' 
do 54 ns=0, nstop 

ii = ns 

write(3,2010) 11, x(ns) 

54 continue 


C CALL diffeq TO COMPUTE THE SOLUTION TO THE DIFFERENCE EQUATION. 
call diffeq(N,L,a,b,x,y,nstop) 
C WRITE RESULTS INTO FILE: DIFFEQ.DAT. 


write(3,2001) N+ nstop + 1 
write(3,*) "OUTPUT SEQUENCE Y(ns)' 
write(3,*) 'SAMPLE # (ns) ' 
write(3,*) 'y(ns) ' 
do 55 ns= -N, nstop 

11 = ns 

write(3,2010) 11, y(ns) 

55 continue 


Seevkilte RESULTS INTO FILE: DIFFEQ.OUT. 


write(2,1008) '‘OUTPUT', nprob 
write(2,1129) 
do 102 ns= -N, nstop 
write(2,1130) ns, x(ns), y(ns) 
102 continue 
write(2,1123) nprob 


10 continue 


write (*,1121) 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(ierr.gt.0) then 
write(*,1116) lerr 
endif 


Zoo 


CERRKKEKKE 


1000 


INPUT FORMAT *##444%% 


format (11) 


1001 format(13, tll, 13 72h eae 


1002 


format (6f10.0) 
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1004 
1005 
1006 
1007 
1008 
IT tO 
IZ 
TES 


IReCG 


1117 
ELS 


EES 
120 
aA 


da22 
123 
1124 


AZ 
ey 


1128 


ZS 
1130 
Jere Al 
2000 
2001 
2010 


format (t4 {THE COPPFICM emo Ojo ly, 
format (6(1x,e12.6) ) 
format (//,t4,'THE COEFFICIENTS a(l), .. 
format (//////////) . 
format (///,t16,a6,' DATA FOR PROBLEM # ',11,//) 
format (t¢4, 'THE NUMBER OF "a6 7! DEES: 37a | 
format (t4,'THE VALUE OF nstop IS: ',13) 
Oformat (1x, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 
1' MODE ? (Y/N) <CR>: ',\,) 
Oformat (///,1x , ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ny 
1//,1x, "ERROR CODE:', 14,/////) 
format (al) 
Oformat (/////,1x,'TYPE THE NAME OF YOUR DATA FILE FOLLOWED’, 
l' BY <CR>.',/,* IF YOU DESIRE TO MAKE A Te eUlievSt ene 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: DIFFEQO.TSI", 
ce TYPE: DIFFEQ.TST <CR>!',/,' FILENAME: ',\,) 
format (al2) 
format(/7/,-c4, | EROEEEM. Sew INPUT DATA SOURCEFILE: ',al12) 
Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: DIFFEQ.OUT.' 
1,/,' PLOTTING DATA IS STORED IN FILE: DIFFEQ.DAT.') 
format (13) 
format (/,1*,16('-'),' END OF PROBLEM #',12,2x,16('-') ,//) 
Oformat(//,' For problem #',i2,' the value for ',al,' is: 
1'. This value is not allowed.') 
format (/,/,' numsys = ',14,'. This value is not allowed.') 
Oformat(//,' For problem #',i2,' the value for ''nstop'' is: ', 
113,'. This value is not allowed.') 
Oformat(//,' For problem #',i2,' the value for ''xsorce'' is: ', 
lal,'. This value is not allowed.') 
format (G6 >'ns* tie x(ns)* t35 iy eS 
format (t4,14,t11,e14.6,t30,e14.6) 
format (/,' THIS SYSTEM IS NON-RECURSIVE, I.E., N= 
format (il) 
format (13) 
format (e12.6,2x,e12.6) 


oy 'C) ARE 


-, a(N) ARE:',/) 


', 13) 


' 12% 


an) 


end 
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C SUBROUTINE: diffeg 


PURPOSE: THIS SUBROUTINE COMPUTES THE SOLUTION TO A DIFFERENCE 
EQUATION. ALL PARAMETERS DESCRIBING THE EQUATION, AND 
THE INPUT AND OUTPUT SEQUENCES x() AND y() ARE PASSED 
TO THE SUBROUTINE BY THE MAIN PROGRAM. 


QO Oae® 


Subroutine diffeq(N,L,a,b,x,y,nstop) 
real x(-128:nstop), y(-128:nstop), a(1:N), b(0:L) 


do 500 ns=0, nstop 
y(ns) = 0.0 
do 501 k=0, max(N,L) 
y(ns) = y(ns) + a(k)*y(ns-k) + b(k) *x(ns-k) 
501! continue 
500 continue 


return 
end 


€ SUBROUTINE: xgen 


C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE VALUES FOR 
€ THE ARRAY x(). IF xsorce = 'S' THE MAIN PROGRAM WILL 

c CALL THIS SUBROUTINE. IF xsorce = 'F' THIS SUBROUTINE 
Cc WILL NOT BE CALLED BY THE MAIN PROGRAM. 


subroutine xgen(x,nstop,nprob) 
real x(-128:nstop) 


CEKKKKEKKEKKEKKERKERKRERERERRRERERERERERERERERERRRRRRERERRERERRERRERRERRERREERERE 


DEVELOP THE ALGORITHM FOR GENERATING VALUES OF x() IN THIS SPACE. 
THE STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(), COS(), ... 
NOTE THAT THE VALUE nprob CAN BE USED IN A LOGICAL 'IF! STATEMENT 
TO MATCH THE GENERATING FUNCTIONS TO THE CORRESPONDING SYSTEM 
EQUATION READ FROM THE INPUT FILE IF MORE THAN ONE SYSTEM OF 
EQUATIONS EXIST. AN EXAMPLE OF AN ALGORITHM GENERATING VALUES 
mem x() ILS: 


Ora Oar a 
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Ckkk EXAMPIE *** 


lf (nproeb. eq. ligaeicn 
do 1 k=0, nstop 
x(k) = 100.0 
i: continue 
endif 


CY OrQasO © 


C¥EEKKKKKKKRKRKERRRRKRRERRRKRRKERRRRRRRERERRRREKRRRRRRERRREKEERRREERRRRKERRREERER 


return 
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STATEQ. FOR VERSION: 2/03/88 


PURPOSE: THIS PROGRAM COMPUTES THE ITERATIVE SOLUTION TO A SET 
OF LINEAR, TIME-INVARIANT STATE EQUATIONS. THE FORM 
OF THE STATE EQUATIONS IS: 


v(nst+1) = Av(ns) + Bx(ns) 
y(ns) = Cv(ns) + Dx(ns) 


WHERE A, B, C, D ARE MATRICES OF THE SYSTEM CONSTANIS, 

v IS THE STATE VECTOR, x IS THE INPUr VECTOR, AND y 

IS THE OUTPUT VECTOR. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM AND TWO SUBROUTINES. THE SUBROUTINE xgen GIVES 
THE USER THE OPTION OF GENERATING THE VECTOR INPUT 
SEQUENCE x() BY WRITING THE APPROPRIATE EQUATIONS IN THE 
SPACE ALLOCATED IN THIS SUBROUTINE. IF THE USER CHOOSES 
LTO GENERATE THE INPUT DATA BY USING SUBROUTINE xgen THE 
KQUATIONS MUST BE WRITTEN INTO THE SUBROUTINE USING 
STANDARD FORTRAN 77 EXECUTABLE STATEMENTS AND THE VALUES 
GENERATED MUST BE STORED IN THE 2-DIMENSIONAL ARRAY 
XS(). THE SUBROUTINE itrate COMPUTES THE STATE OF THE 
SYSTEM v(), AS WELL AS THE OUTPUT OF THE SYSTEM y(), FOR 
EACH VALUE OF ns FROM ns = 0 TO ns = nstop. THE USER 
HAS THE OPTION OF SELECTING ONE OF TWO OPERATING MODES: 
RATCH OR TEST. IN BATCH MODE THE AMOUNT OF INTERFACE 
WITH THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE 
INPUT PARAMETERS DESCRIBED BELOW HAVE BEEN STORED IN 
THe SINCE SE EEE STATEO.IN =) IN TEESE MODE THE USER IS 
PROMPTED FOR THE NAME OF THE INPUT FILE AND HAS THE 
OPTION OF PERFORMING A TEST RUN USING THE DATA STORED IN 
iin: Pee SrA isn”. SebeisS RECOMMENDED THAT FIRST- 
TIME USERS SELECT TEST MODE AND PERFORM A TRIAL RUN 

WITH THE PRESTORED DATA. THE TEST MODE ECHOES PORTIONS 
OF THE INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION 
OF ITS ACCURACY. THE OUTPUT OF THE PROGRAM 'STATEQ.FOR' 
IS STORED IN THE 2-DIMENSIONAL ARRAY ys() AND THE SYSTEM 
STATES ARE STORED IN THE 2-DIMENSIONAL ARRAY vs(). THE 
INPUT VALUES, SYSTEM STATES AND THE OUTPUT DATA ARE 
STORED IN TABULAR FORM IN THE FILE 'STATEQ.OUT' AND INA 
FORM SUITABLE FOR PLOTTING IN THE FILE 'STATEQ.DAT'. 


CERKEKRKKEKKKKKEKKKEKRERERKKEKKEKEREKER INPUT KEKREEREEKKKREKKKEKKEKEREKEKRRKEKRKKRKKEK 


(2 G1@s@- OO 1) 


THIS PROGRAM ASSUMES THAT THE STATE EQUATIONS ARE IN THE 
FORM : 


(vl (nst1) J peel ieremreny) (iC ae (eli ys.. biM) [xl(ns) ] 
[v2 (ns+1) ] az leeway) (| V2 (sie Paci 2M) {x2 (ns) } 
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O20 O00 O00: 00 0 OOO 0°00) 0.0.0 061040. 0 0.0.0 O-O oO OO O42 se ere ere 


[ 


[yl (ns) ] 
[y2 (ns) ] 
2 


[ 


is 
IS 
IS 


os a 


IS 
IS 
IS 
IS 
IS 


0UONWPrPK <x 


[yO (ns) 


ISA 


a] =a ae 
[VN(ns+1)]  [ aNl ... 


fellane- 
eee 
=... 
(CQl 


i. 1*( 
aNN} [ vN(ns) ] 


C1N] [vl1(ns) ] 
C2N] [v2(ns) ] 
sags were ale 
»++ CQN]) [VN(ns) ] 


| ae 


THE NUMBER OF SYSTEM STATES. 
THE NUMBER OF SYSTEM INPUTS. 
THE NUMBER OF SYSTEM OUTPUTS. 


THE M x 1 INPUT VECTOR. 
TE N xX 1 STAM: VECIOnN. 
THE O x lL @U2PUL VECIOR: 


AN 


N xX N MTkUX OF CONSTANTS. 
AN N x M MATRIX OF CONSTANTS. 
Q X N MATRIX OF CONSTANTS. 

IS AQ x M MATRIX OF CONSTANTS. 


rain 
(aoe 
1:4 eee 
(ao ia 


5 CRS 
. BNM] [xM(ns) ] 


d1M] [x1(ns) ] 
d2M] [x2(ns) ] 


* 


choje ai 
dOM] [xM(ns) ] 


THE SOLUTION IS GENERATED IN THE INTERVAL O <= ns <= nstop. 


USER MUST PROVIDE THE MATRICES A, B, C, D AS WELL AS THE INITIAL 
VALUES OF THE STATE VECTOR v IN THE INPUT FILE. THESE INPUTS, AS 
WELL AS THE PARAMETERS DESCRIBED BELOW, SHOULD BE STORED IN THE 

ALL OF THE READ STATEMENTS USED BY THIS 
PARTICULAR ATTENTION SHOULD BE 


INPUT FILE 'STATEQ.IN'. 
PROGRAM REQUIRE FORMATTED INPUT. 
PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT 
TO DISTINGUISH BETWEEN 


NAME TYPE 

N INTEGER 
M INTEGER 
Q INTEGER 
nstop INTEGER 
xsorce CHARACTER 
A(1i,}) REAL 
BO a) REAL 
Cea) REAL 
D(1,)J) REAL 
(als) REAL 
XS(1,)) REAL 


‘REAL! 


Be ste = 2S 


~~ 


i 
OS 


264 


AND INTEGER DATA. 


RESTRICTIONS 
Ol<=siee— 10 
0 <=M<e=4 
0<=0O = 4 
<= nstop <= 99 
tReet OR iS! 
0 <=-N <= 10 
0 <=N <= 10 
0 <=M <4 
0<=QO <= 4 
0 <=N <= 10 
0<=Q0 <= 4 
0 <=M <= 4 
0 <=N <= 10 
0 <=M <= 4 


QO <= nstop <= 99 


OnA0 1A 02000 0°00 4°0°O 4 OO OO ee 6° 60900 OO OYA Tae ea Oe ae at) 


WHERE : 


Zz 
ll 


AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF SYSTEM STATES, 
I.E., THE ORDER OF THE SYSTEM. 


M = AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF SYSTEM INPUTS. 


Q = AN INTEGER VAWWE THAT SPECIFIES THE NUMBER OF SYSTEM OUTPUTS. 
nstop = AN INTEGER VALUE THAT SPECIFIES THE LARGEST TIME INDEX 
(ns) FOR WHICH THE STATE EQUATIONS ARE TO BE SOLVED. 


xsorce = A CHARACTER VALWWE OF 'F! OR 'S' DENOTING WHETHER THE INPUT 
SEQUENCE(S) xs(i,j) ARE TO BE READ FROM THE INPUT FILE (F) 
OR TO BE GENERATED (S) USING THE SUBROUTINE xgen. ‘THIS 
LATTER OPTION IS ATTRACTIVE WHEN nstop IS A LARGE NUMBER 
AND THE INPUT SEQUENCE(S) xs(1,]) CAN BE READILY DESCRIBED 
BY ANALYTICAL EXPRESSIONS. IF xsorce = 'F' THE VALUES OF 
XSi I=... Mot) j=0,.4.,nstep ARReREAD GROOM THE 
INPUT FILE. IF xsorce = 'S' THEN THE USER HAS ELECTED 
TO GENERATE THE INPUT SEQUENCE(S) xs(1,j),..-,xS(M,j) BY 
WRITING THE APPROPRIATE FORTRAN STATEMENTS IN THE SUEBE- 
ROUTINE xgen. IF THIS METHOD OF INPUT DATA GENERATION 
IS SELECTED NO VALUES OF THE INPUT SEQUENCE SHOULD APPEAR 
IN THE INPUT FILE AND THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. 


A(i,j) = AN N x N MATRIX OF REAL NUMBERS. 


B(i,j) = AN N x M MATRIX OF REAL NUMBERS. 


c(i,j) = AQ x N MATRIX OF REAL NUMBERS. 


D(1,J) 


v(i) = THE N x 1 INITIAL CONDITION VECTOR OF THE SYSTEM STATES. 
THE USER MUST PROVIDE THE VALUES OF THE STATES FOR ns=0, 
I.E., v(1l),---,Vv(N). THESE VAIUES ARE THE INITIAL 
CONDITIONS OF THE SYSTEM. 


AQ xX M MATRIX OF REAL NUMBERS. 


xs(i,j) = AN M x (nstop+1) MATRIX OF REAL NUMBERS. THE SEQUENCE(S) 
xs(1,ns),...,xS(M,ns) ARE THE INPUTS TO THE SYSTEM AT 
SAMPLE ns. 


NOTE: ‘THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 


FOLLOWING THE CAPTION: ******** INPUT FORMAT *#**4%%%, 
THE FORM OF THE INPUT DATA FILE IS: 


ZO 


OO OOOO OO OOO 0 1G OO: 61-0 OO 00) Oe OO O22 OO One Oe 


Or) 030) OOOO 


LINE # ENTRIES FORMAT NOTES 


aS ea eS =| +S Set Se SS = SS ae =P a 


i N,M,Q 12, Cia 1 eae 
Z, nstop, xsorce 12 lee 
NEXT NA LINES (ae oe 6£10.0 READ BY ROWS 
Jaleo N 
NEXT N LINES BCL ape 4£10.0 READ BY ROWS 
Joiees.. ,M 
NEXT NC LINES CG) = ee © 6E10. 0 READ BY ROWS 
lee, N 
NEXT © LINES DC ,3)), Lie sO 4f10.0 READ BY ROWS 
Jaye 
NEXT Nv LINES 7 (= er 6f10.0 
NEXT Nx LINES xS( isle 4£10.0 EACH LINE 
jJ=0,...,ntop CORRESPONDS 
TO ONE VALUE 
OF nse 
WHERE : 


NA =N IF N <6 
2*N OTHERWISE. 


NC = Q IF N <= 6 
2*Q OTHERWISE. 
Nv = 0 IF N= 0, 
Nv = 1 tei <= <— 6; 
Nv = 2 te Neo, 
Nx = 0 IF xsorce = 'S' OR 
Nx = nstop +1 IF xsorce = 'F' 


NOTE: THE FORMAT £10.0 USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 
3146.2 = 3.1462E+03). 


KAKKKAKARKEK EKER REREREREEEEK ~~ OUTPUT KKK KKKKKKKKK KKK EAE 


THE INPUT DATA, SYSTEM STATES, AND THE OUTPUT SEQUENCE(S) ARE 
STORED IN TABULAR FORM IN THE FILE 'STATEQ.OUT'. ADDITIONALLY, 

UP TO 9 SEQUENCES CONSISTING OF THE INPUT AND OUTPUT SEQUENCES 
AND THE SYSTEM STATES ARE STORED IN THE FIIE 'STATEQ.DAT' TO 
FACILITATE PLOTTING BY A SEPARATE, USER PROVIDED PROGRAM. NOTE 
THAT A MAXIMUM OF 9 SEQUENCES ARE WRITTEN INTO THIS FIIE. IF 
MORE THAN 9 SEQUENCES EXIST, ALL OF THE INPUT AND OUTPUT SEQUENCES 
(xs() AND ys()) WILL BE STORED, HOWEVER SOME OF THE SYSTEM STATES 
(vs()) WILL NOT BE STORED IN 'STATEQ.DAT'. THE FORMAT OF THE DATA 
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itimotAThHO.BAT' TS: e12.6, 2X, e12.6. THE FIRST ENTRY CORRESPONDS 
TO THE ORDINATE VALUE, AND THE SECOND ENTRY, THE ABSCISSA VALUE. 
ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 'STATEQ.DAT' TO 
ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 


TA OWa ao 


KKEKEKKEKEEKEKKEKEKEKERRRREKKRERRKKKEEKR EXAMPLE KEEKKKKKEKEKEREREKKRERKEREEKRKRKREK 


THE INPUT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED 
IN THE FILE 'STATEQ.TST'. THE GOAL IS TO READ THE INPUT VAIUES 
FROM THE INPUT FILE AND TO CALCULATE THE STATE VECTOR v AND THE 
CORRESPONDING OUTPUT VECTOR y FOR ns = 0 TO 3. 


GIVEN: N = 2 

M=1 

eee 
x1(ns) = 10.0*u(ns) 


meoree = 'F' JT.E., THE SEQUENCE xs(l1,ns) IS READ 
FROM THE INPUT FILE. 


INITIAL CONDITIONS: 


v1(0) 


5.0 
v2(0) = -5.0 


II 


SYSTEM OF EQUATIONS IN MATRIX FORM: 


(vl (nst1) ] ee Oe erie eis ected ere Ons ecie(ass) || 
meeimst+l)} (1.0 0.0] [v2(ns)] [0.0] 


(yl (ns) } PG = sO) ~( Vins) jos lo a ieckt(ns) | 


[v2 (ns) ] 


oe GNPOT FILE IS: 


02 il il 
03 a 
0.0 alu) 
i 0 0.0 
i. O 

0.0 

1.0 seals 
1.0 

=». 0 a. 0 
n= © 

10.0 

10.0 

106 6. 


NOAOCOOA0C00 0200 OOOO C7000 OA 2.8 38-O OOOO 


Zo? 


OOO. O20 O°0:O:-O10 OOOO C10 O70 O 0-030. 0) OOO 1111 00" OOOO OO OL OO OO ree 


THE RESULTING OUTPUT FILE 'STATEQO.OUT' IS: 
INPUT PARAMETERS : 
INPUT DATA SOURCE FILE: STATEQO.TST 
THE NUMBER OF STATES IS: N= 2 
THE NUMBER OF SYSTEM INPUTS IS: M=1 
THE NUMBER OF SYSTEM OUTPUTS IS: Q=1 
THE VALUE OF nstop IS: nstop = 3 
THE VALUE FOR xsorce IS: F 
THE MATRIX A(i,j) IS: 


-QOO0E700" =. 1000b Ter 
- LOOOE+01 - OOOOE+00 


THE MATRIX B(i,j) IS: 


- LOOOE+O1 
- OOOOE+00 


THE MATRIX C(i,j) IS: 
.1000E+01 -.1000E+01 
THE MATRIX D(i,j) IS: 
. 1000E+01 


THE INITIAL CONDITION OF THE STATE VECTOR IS: 


vl = .500000E+01 
v2 = —-.500000E+01 
OUTPUT DATA: 


FOR ns = O THE STATE OF THE SYSTEM IS: 
THE VECTOR x is: 


xl = .1LOOQO0O0E+02 
THE VECIOR v is: 

Vl = .500000E+01 

V2 = -—.500000E+01 
THE VECTOR y is: 

yl = .200000E+02 


FOR ns = 1 THE STATE OF THE SYSTEM IS: 
THE VECTOR x is: 


Xl = .1LOOOQOOE+02 
THE VECTOR v is: 

Vl = .150000E+02 

v2 = .500000E+01 
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WHE VECTOR y is: 
yl = .200000E+02 


FOR ns = 2 THE STATE OF THE SYSTEM IS: 
THE VECTOR x 1s: 


me — .LOOOOOE+02 
THE VECTOR v is: 

Vl = .500000E+01 

v2 = .150000E+02 
THE VECTOR y is: 

Yl = .000000E+00 


Perens — 3 THE STATE OF THE SYSTEM IS: 
THE VECTOR x is: 


X1 = .1LOOOOOE+02 
THE VECIOR v is: 

Vl = -.500000E+01 

V2 = .500000E+01 : 
THE VECTOR y is: 

Yl = .QOQQ00E+00 


FOR ILIUSTRATIVE PURPOSES THE SAME INPUT SEQUENCE COULD HAVE BEEN 
GENERATED BY CHANGING xsorce TO 'S' AND USING SUBROUTINE xgen 

TO GENERATE THE VALUES FOR xs(1,ns). THE APPROPRIATE FORTRAN 
STATEMENTS ARE WRITTEN INTO xgen BUT 'COMMENTED OUT' FOR THIS 
EXAMPLE. 


KKK KKKKKKRK KKK KKK KKK KKK EK MAIN PROGRAM wR AK AKKKKEKKKKKEEK 


real A(10,10), B(10,4), C(4,10), D(4,4), Jj 
real ys(4,0:99), vs(10,0:100), xs(4,0:99), v(10) 
integer Q 

Character*1 mode, xsorce, infile*12 


PROMPT USER FOR MODE: BATCH OR TEST. 


write (*,1115) 

read(*,1117) mode 

if ((mode.eq. 'Y') .or. (mode.eq.'y')) then 
mode = 'y' 
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write (*, 1118) 
read(*,1119) infile 
else 

infile = 'STATEO.IN'! 
endif 


C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 


open (unit=1, file=infile,status='old',ilostat=lerr, err=999) 
open (unit=2, file='STATEQ.OUT') 
open (unit=3 , file='STATEQ.DAT' ) 


C READ INPUT PARAMETERS AND PERFORM ERROR CHECKS. 


read(1,1001) N, M, Q 
read(1,1002) nstop, xsorce 


LEC (Ne LE SO) er.) oO) tener 

write(*,1124) 'N', N 

stop 'The allowed values for ''N'' are: 0O <=N <= 10.' 
endif 


LE ( (1s ..0) -ceavecEs a chen 

write(*,1124) 'M', M 

stop 'The allowed values for ''M'' are: 0 <=M <= 4.'! 
endif 


lf ((OmitEsO) or .(@-ce44) ) senen 

write(*,1124) 'Q', Q 

stop 'The allowed values for ''Q'' are: 0 <=Q <4.' 
endif 


1f((nstop.1t.0).or. (nstop.gt.99)) then 

write(*,1127) nstop 

stop 'The allowed values for nstop are: 0 < nstop <= 99.'! 
endif 


1f((xsorce.eq.'F') .or. (xsorce.eq.'f')) then 


xsorce = 'F! 

elseif ((xsorce.eq.'S') .or. (xsorce.eq.'s')) then 
xsorce = 'S' 

else 


write(*,1128) xsorce 
stop 'The allowed values for ''xsorce'' are: ''F'' or ''S!'!,! 
endif 
C FOR TEST MODE ECHO INPUT PARAMETERS ONTO MONITOR (UNIT = *). 
if (mode.eq.'Y') then 
write (*,1006) 
write(*,1007) infile 
write(*,1008) N 
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write(*,1009) M 
write(*,1010) Q 
write(*,1011) nstop 
write(*,1012) xsorce 
if(N.eg.0) write(*,1131) 
endif 


C WRITE INPUT PARAMETERS N,M,Q,nstop,xsorce INTO FILE: STATEO.OUT. 


write (2, 1006) 
write(2,1007) infile 
write(2,1008) N 
write(2,1009) M 
write(2,1010) Q 
write(2,1011) nstop 
write(2,1012) xsorce 


C READ SYSTEM MATRICES AND WRITE THEM INTO FILE: SLATEQ.OUT. 


if (N.eq.0) then 
write (2,1131) 


else 
write(2,1110) 'A(i,j)' 
do 30 i=1, N 
read(1,1003) (A(1,)),J=1,N) 
write(2,1005) (A(i,3j),j=1,N) 
30 continue 


write(2,1110) 'B(i,j)' 
do 40 i=1, N 
read(1,1004) (B(1,J) ,J=1,M) 
write(2,1005) (B(i,j) ,j=1,M) 
40 continue 


mente (2,1110)9'Cc(i,4)' 
do 50 1=1, OQ 
fmeacd(1, 1003) (C(1,)),J=1,N) 
write(2,1005) (C(i,j) ,j=1,N) 
50 continue 
endif 


write(2,1110) 'D(i,3)' 
do 54 i=1, OQ 
read(1,1004) (D(1,)),jJ=1,M) 
write(2,1005) (D(i,j) ,j=1,M) 
54 continue 


C READ THE INITIAL CONDITION VECTOR v() AND WRITE THE VALUES 
Seeemmie FILE: STATEQ.OOT. 


a 


if(N.gt.0) then 
read(1,1003) (v(i),1=1,N) 
Wilee (2, 1123) 
do 64 i=1, N 
Wrlee(2, LISS) eo = ay (ad) 
vs(i,0) = v(i) 
64 continue 


C FOR TEST MODE WRITE THE VECTOR v() ONTO THE MONETOR? 


1f(mode.eq.'Y') then 
write (*,*) 
pause 'o-~-<----- > Type <CR> to continue. <—————————! 
write(*,1123) 
do 65 1=1, N 

WELte(*, 1133) "vy! jaa (2) 
65 continue 
endif 
endif 


C FOR xsorce = 'F' READ THE ARRAY xs(1,j]) FROM THE INPUT FILE. 
C FOR xsorce = 'S' CALL 'xgen' TO GENERATE THE ARRAY xS(1,j). 


if (xsorce.eq.'F') then 
do 70 j=0, nstop 
read(1,1004) (xs(1i,j) ,1=1,M) 
70 continue 
else 
call xgen(xs,M,nstop) 
endif 


C COMPUTE ITERATIVE SOLUTION TO THE SYSTEM OF EQUATIONS. 
call itrate(N,M,Q,nstop,A,B,C,D,xs,vs, ys) 


C FOR EACH VAIUE OF ns WRITE THE VALUES OF xs(), vs(), ys() TO THE 
C OUTPUT FILE: STATEQ.OUT. 


write(2,1129) 


do 100 ns=0, nstop 
write(2,1130) ns 
write(2,1132) 'x'! 
do 101 i=1, M 

write(2,1133) 'x', 1, xsS(1i,ns) 


101 continue 
if(N.gt.0) then 
write(2,1132) 'v'! 
do 102 i=1, N 
write(2,1133) 'v', i, vs(i,ns) 
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102 continue 
endif 


write(2,1132) 'y' 
do 103 i=1, Q 
write(2,1133) 'y', i, ys(i,ns) 
103 continue 
100 continue 


fee, THE SEQUENCES xs, vs, ys INTO THE FILE: STATEQ.DAT. 


numlts =N+M+Q 
1if(numplts.gt.9) then 
numplts = 9 
fe 9 - M- O 
endif 


write(3,2000) numplts 


do 55 i=1, M 
write(3,2001) nstopt+1l 
write(3,2002) ‘INPUT SEQUENCE x', char(48+1i), ' (ns)! 
write(3,*) 'SAMPLE # (ns)! 
mielte(3,2003) 'x', char(48+1i), ' (ns)! 
do 56 ns=0, nstop 
i= ns 
write(3,2010) jj, xs(i,ns) 
56 continue 
55 continue 


Bo.57 1=1, N 
write(3,2001) nstoptl 
write(3,2002) 'STATE SEQUENCE v', char(48+i), ' (ns)! 
write(3,*) 'SAMPLE # (ns)' 
mrice(3,2003) 'v', char(48+1), ' (ns)! 
do 58 ns=0, nstop 


a 
write(3,2010) jj, vs(i,ns) 
58 continue 
57 continue 
do 59 i=1, Q 
write(3,2001) nstoptl 
write(3,2002) "OUTPUT SEQUENCE y', char(48+i), ' (ns)! 


write(3,*) 'SAMPLE # (ns)' 
write(3,2003) 'y', char(48+1i), ' (ns)! 
do 60 ns=0, nstop 


ee ee 
WwrEteo(3,2010) 3), ys(i,ns) 
60 continue 
59 continue 
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Wigistee( oan 
999 close(unit=1) 
close (unit=2) 
close (unit=3) 


if(lerr.gt.0) then 
write(*,1116) ierr 
endif 


CeeKKKEEK INPUT FORMAT &kkkkkK* 


1000) formate eee 
1002 ) forest(ae eian) 

1003 format(6(f10.0)) 

1004 format(4(f10.0)) 


CEHEKRRKRREREREREREKEERREREERERERKRKRE 


1005 format (6(2X,e10.4)) 

1006 format(t16,//////,' INPUT PARAMETERS:',//) 
1007 format(t4, 'INPUT DATA SOURCE FILE: ',al2) 
1008 format(t4,'THE NUMBER OF STATES IS: N = ',i2) 


1009 format(t4,'THE NUMBER OF SYSTEM INPUTS IS: M = ',11) 
1010 format(t4,'THE NUMBER OF SYSTEM OUTPUTS IS: Q = ',11) 
1011 format(t4,'THE VALUE OF nstop IS: nstop = ',12) 


1012 format(t4, 'THE VALUE FOR xsorce IS: ',al,/) 

1110 formmat()///c4, THe MATRIX * a6, ots: 7) 

1115 Oformat(1x,'DO YOU WISH TO RUN THIS PROGRAM IN TEST', 
1' MODE ? CY) CR i: NS) 

1116 Oformat(///,1x, 'ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ', 
1//,1X,'ERROR CODE:',14,/////) 

i? formatian) 

1118 Oformat (/////,1x,'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
1' BY <CR>.',/,' IF YOU DESIRE TO MARE A Pes) cUNaol Gere 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: STATEQ.TST', 
oP! TYPE: STATEO.TST <CR>",|/,” EiLeNAME 

1119 format(al2) 

1121 Oformat(//,' TABULAR OUTPUT DATA IS STORED IN FILE: SIATEO OURS 
1/,' PLOTTING DATA IS STORED IN FILE: STATEQ.DAT.') 

1123 format(//,t4,'THE INITIAL CONDITION OF THE STATE VECTOR IS:',/,) 


1124 Oformat(//,' The value of ',al,' is ',i2,'. This value is not 
1 allowed. ') 

1127 Oformat(//,' The value of nstop is ',12,'. This value is not 
1 allowed. ') 

1128 Oformat(//,' The value of xsorce is ',al,'. This value is not 
1 allowed. ') 

1129 format(//,t16,' OUTPUT DATA:') 

1130 format(//,t2,'FOR ns = ',i2,' THE STATE OF THE SYSTEM IS:') 

1131 format(/,' THIS SYSTEM IS NON-RECURSIVE !!!') 

1132 format(t4,'THE VECTOR ',al,' is:') 

1133 format(t6,al,i1,' = ',e12.6) 


2000 format(il) 
2001 format(i3) 


274 


2002 format(al7,al,a5) 
2003 format(al,al,a5) 
2010 format(el2.6,2x,e12.6) 
end 
S SUBROUTINE: itrate 
C PURPOSE: THIS SUBROUTINE COMPUTES THE ITERATIVE SOLWTION TO 
C THE DISCRETE, STATE MATRIX SYSTEM OF EQUATIONS. 
c THE INPUTS TO THIS SUBROUTINE ARE THE DIMENSIONS 
Cc N,M,Q, THE PARAMETER nstop, AND THE 2-DIMENSIONAL 
c ARRAYS A, B, C, D, xs, AND vs. FOR EACH VAIUE OF ns 
Cc FROM ns = O TO ns = nstop THE STATE OF THE SYSTEM vs 
C IS COMPUTED AS IS THE CORRESPONDING OUTPUT ARRAY ys. 
subroutine itrate(N,M,Q,nstop,A,B,C,D,xS,VS,YSs) 
integer Q 
real A(10,10), B(10,4), C(4,10), D(4,4) 
real xs(4,0:99), vs(10,0:100), ys(4,0:99) 
do 1 ns=0, nstop 
C FOR ns = 0O TO nstop: COMPUTE THE SODWTION 
C TO THE EQUATION: vs(nst+1l) = A*vs(ns) + B*xs(ns). 
do 2 1=1, N 
mt = 0.0 
vs(i,nst+1l) = 0.0 
do 3 k=1, M 
X1 = x1 + B(1,k)*xs(k,ns) 
g continue 
do 4 j=1, N 
vs(1,nst+1l) = vs(i,nst1l) + A(1i,j)*vs(j,ns) 
4 continue 
vs(i,nst1) = vs(i,nstl) + x1 
2 continue 
C COMPUTE THE SOLUTION TO THE EQUATION: ys(ns) = C*vs(ns) + D*xs(ns). 


ao. 5 J=1, 0 
ys(l1,ns) = 0.0 
ca = ©.,.0 
do 6 k=1, M 
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XL = x1 + D(1,k) *xs(k,ns) 


6 continue 
do: 7 j=1, N 
ys(1,ns) = ys(1,ns) + C(1,3)*vs(j,ns) 
7 continue 
ys(l,ns) = ys(l,ns) + xi 
5 continue 
a continue 
return 
end 
Cc SUBROUTINE: xgen 
C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE VALUES FOR 
: THE 2-DIMENSIONAL, ARRAY xXS(1,J) . LF xsorce = 'S' THE 
c MAIN PROGRAM WILL CALL THIS SUBROUTINE. IF xsorce = 'F'! 
Cc THIS SUBROUTINE WILL NOT BE CALLED BY THE MAIN PROGRAM. 


subroutine xgen(xs,M,nstop) 
real xs(4,0:99) 


pl = 4.0*atan(1.0) 


CEEKKKKRKEKREREKREREREERKEKREKKEKEERERRERRERERREREERERERRRRRREREERRRERRERRERK 


DEVELOP THE ALGORITHM FOR GENERATING VALUES OF xs(i,j) IN THIS 
SPACE. THE STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 
RULES AND MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(), 
COS(),... NOTE THAT THE ROW INDEX i DENOTES THE INPUT SEQUENCE 
NUMBER 1 <= 1 <= M, AND THE INDEX j DENOTES THE VALUE FOR ns 

O <= ns < nstop. AN EXAMPLE OF AN ALGORITHM GENERATING VALUES 
FOR THE SEQUENCE xs(i nse ts: 


kkk EXAMPIF *x** 
do 88 ns=0, nstop 
xS(1,ns) = 10.0 

88 continue 


OO OVO. O 1 0-0'0'°0°0' O 


CEKKKKEKKKKEEKKKKKKERERERKKERERERERKERERERERRRERERRRKRRRERERRRRRERERRRERKRRERERE 


return 
end 
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PLOTDAT. FOR VERSION: 2/03/88 


PURPOSE: THIS PROGRAM IS DESIGNED TO CREATE UP TO NINE Two- 
DIMENSIONAL (2-D) PLOTS BY READING DATA FROM AN INPUT 
FILE AND PLOTTING THE DATA ON THE MONITOR SCREEN. THE 
PROGRAM CONSISTS OF A MAIN PROGRAM AND THE SUBROUTINES 
scale AND gridd. THE MAIN PROGRAM READS THE DATA FROM THE 
INPUT FILE, AND CREATES THE PIOT(S) BY MAKING CALLS TO 
THE GRAPHMATICS GRAPHICS LIBRARY (NOTE 1). SUBROUTINE 
scale IS CALLED BY THE MAIN PROGRAM TO SCALE THE DATA SO 
AS TO OPTIMALLY FILL THE SCREEN WITH EACH PLOT. SUBROUTINE 
gridd IS CALLED BY THE MAIN PROGRAM IF THE USER ELECTS TO 
HAVE A GRID OVERLAY THE PLOT. THE USER HAS THE OPTION OF 
PERFORMING A TRIAL RUN BY PLOTTING THE DATA PRESTORED IN 
THE FILE 'PLOTDAT.TST'. IT IS RECOMMENDED THAT FIRST-TIME 
USERS MAKE A TRIAL RUN BY SPECIFYING THE INPUT FILE 
'PLOTDAT.TST' WHEN PROMPTED FOR THE NAME OF THE INPUT 
FILE. THE SPECIFIC HARDWARE REQUIREMENTS NECESSARY TO RUN 
THE PROGRAM ARE OUTLINED BELOW. ADDITIONALLY, THE INPUT 
FORMAT REQUIREMENTS ARE PRESENTED AND A SAMPLE INPUT FILE 
LISTING IS INCLUDED. 


Here 1. COPYRIGHT 1984, MICROCOMPATIBLES INC., SILVER SPRINGS, MD. 


CRERKKKKKKKKKKKKKKKKEEE HARDWARE REQUIREMENTS «— *##XXXXRKKKAAAAHRKKKEKKKA 
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THIS PROGRAM WAS WRITTEN FOR PERSONAL COMPUTERS OUTFITTED WITH A 
COLOR GRAPHICS ADAPTER (CGA) CARD. THE MONITOR SCREEN IS ASSUMED 
TO BE 640 X 200 PIXELS. FOR HARDCOPY PRINTOUTS OF THE PLOTS THE 
PROGRAM WILL DRIVE A DOT MATRIX PRINTER IF INSTALLED. FOR 
COMPUTERS OUTFITTED WITH OTHER THAN A CGA CARD THE PROGRAM MAY NOT 
OPERATE. FOR MACHINES THAT HAVE AN EGA CARD THE PROGRAMS WILL NOT 
PRODUCE A HARDCOPY PRINTOUT OF THE PLOTS. TO OVERCOME THIS 
LIMITATION, USERS SHOULD TRY EXECUTING THE 'PRINT SCREEN' COMMAND. 


KKK KAKA KK KKK KKK KKK KKK KARE KKK INPUT RRR KKK KARR KAKA KKRARAEKKKREKRE 


UPON EXECUTION OF THE PROGRAM, THE USER IS PROMPTED FOR THE NAME 
OF THE INPUT FILE. THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN 
PROGRAM FOLLOWING THE CAPTION: ****kkk*k*k JTNPUT FORMAT **xxxxxx, 
fae PORM OF THE INPUT DATA FILE Is: 


27) 


O00 00 0020-0. 0:0 0.000 0-0) 0°10 OO O.0 00.0016 Oe O40 


CeO Gy Care @) 


numplts = 


numpts 


title 


xlabi— 


Viabl 


A 


Netty Ae 


NOTE 2. 


ENTRIES FORMAT RESTRICTIONS 
numplts ale 1 <= mmplts <9 
numpts os 2 <= numpts <= 999 
eltle a40 

xlabl al4 

ylabl al4 

XO) iA 10, 2X le 0 NOTE 2 


AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF PLOIS TO 
BE CREATED BY THE PROGRAM. FOR EACH PLOT 1, ..., numplts 
THE INPUT DATA SPECIFIED BELOW MUST OCCUR IN THE INPUT 
FILE. 


AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF POINIS TO 
BE READ FROM THE INPUT FILE, FOR A GIVEN PLOT, AND 
POPE: 


A CHARACTER STRING CONSISTING OF UP TO 40 CHARACTERS. 
THIS STRING IS PLACED ABOVE THE PLOT. 


A CHARACTER STRING CONSISTING OF UP TO 14 CHARACTERS. 
THIS STRING IS PLACED BENEATH THE X-AXIS. 


A CHARACTER STRING CONSISTING OF UP TO 14 CHARACTERS. 
THIS STRING IS PLACED ADJACENT TO THE Y-AXIS. 


LINES 6...6+numpts MUST EACH CONTAIN A PAIR OF REAL 
NUMBERS THAT COMPRISE THE ORDINATE x() AND ABSCISSA y() 
VALUES DEFINING A SINGLE POINT TO BE PLOTTED. 


THE DATA REQUIRED FOR LINES 2 ... 6+tnumpts IS REPEATED 
FOR EACH PLOT (1...numplts) TO BE CREATED BY THE PROGRAM. 


THE FORMAT £12.0 USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF 12 COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (E.G., 
3146.2 = 3.1462E+03). 


RRKKKKKRRAERRKERKEKRERRRRRRRRRRR EXAMPLE RK KKH ARKKKKKKKKKKEKEREREERE 


PRINTED BELOW IS A LISTING OF ONE OF THE TWO EXAMPLES INCLUDED IN 


THE INPUT 


FILE 'PLOTDAT.TST'. THE ENTRIES ON EACH LINE SHOULD BE 


COMPARED TO THE FORMAT REQUIREMENTS LISTED ABOVE. 


BIS 


S 
C 
S 
C 
C 
C 
C 
e 
c 
C 
S 
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i: 


005 

title (UP TO 40 CHARS) IS PRINTED HERE 
Palalo)) HERE 

yYlabl HERE 

0.0 Q.0 

0 20 

220 Zo) 

SO 70 

4.0 4.0 


KKKKKKKKKRKKKREKKKEKEKEKEKKEK MATIN PROGRAM &XXXKKKKKKKKKKKKKKKKKEREKKEE 


SSTORAGE: 2 


OG 


Character copy*1l, yscal*3, xlabl*14, ylabl*14, scal*6 
Character title*40, infile*12, plot*l, xx*l, yy*l, grid*1 
real x(999), y(999), dum(4,999) 

integer tmode,gmode 


DEFINE SCREEN SIZE: 640 x 200 PIXELS 


gmode 
toede 


6 
Z 


DEFAULT PLOT TYPE: SOLID BLACK LINE, POINTS CONNECTED BY A LINE. 


ndots = 0 
ieolor = 3 
kirsym = 3 


ENABLE MINOR TIC MARKS ON AXES. 
ENABLE MAJOR TIC MARKS AND LABEL TO AN ACCURACY OF 0Q.Ol1. 


ENABLE PLOT AUTO-SCALING. 
y/x RATIO OF PLOT = 1.0. 
Elen ASPECT RATIO = 1.2. 


lo = 0 
yx = 1.0 
aspect = 1.2 
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C DEFINE CHARACTER STRING CONSTANTS. 


scal = 'x 10**! 
— ty! 
yy = ive 


C CLEAR SCREEN 
call qclear(0,7) 
C OPEN INPUT FILE AND READ THE VALUE numplts. 


write(*,111) 
read(*,109) infile 


open (unit=1, file=infile, status='old',iostat=lerr, err=999) 
read(1,100) numplts 


C PROMPT USER FOR DESIRED eC Irens. 


do 5 i=1, numplts 

data x/999*0.0/, y/999*0.0/ 
write (*,107) 

read(*,101) copy 

write (*,112) 

read(*,101) grid 

write (*,108) 

read(*,101) plot 


C READ HEADER DATA FROM INPUT FILE. 


read(1,102) numpts 
read(1,104) title 
read(1,105) xlabl 
read(1,105) ylabl 


C FOR PLOTS OF 25° POENTS OR LESS») PROPEING oi) bol) — a 


if (numpts.le.25) then 
isymbol = 43 
itype = 0 

else 
isymbol = 
ee2 = 

endif 


~ | 
{ 
N 


C SCALE THE INPUT DATA. 


xin = 3.0e+38 
xmax = -—3.0e+38 
ymin = 3.0e+38 
ymax = -3.0e+38 
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ral 


do 10 k=1, numpts 
mead(1,106) x(k), yQ 


xmax = max(x(k) , xmax) 
xmin = min(x(k) ,xmin) 

aes = max(y(k) , ymax) 

ymin = min(y(k) , ymin) 
continue 


if (xmax.eq.xmin) then 


write (*,*) 
write(*,*) 


'Execution halted.! 
'The increment of the ordinate values = 0.0.' 


stop 'Check the ordinate values in the input file.' 


endif 


if ( (ymax.eq.0.0) .and. (ymin.eqg.0.0)) then 


write(*,*) 'For the current plot, the maximum and minimum! 
write(*,*) ‘abscissa values are: ymax = ymin = 0.0.' 
write(*,*) 'Data ignored ... computing next plot.' 
goto 5 

endif 


call scale (xmin, xmax, ixscal , xx) 
call scale(ymin, ymax, iyscal,yy) 
scalx = real(ixscal) 
scaly = real(iyscal) 


xmajor = abs(xmax-xmin)/5.0 - 0.000001 
ymajor = abs(ymax-ymin)/5.0 - 0.000001 


do 11 k=1, numpts 
x(k) = x(k) /(10.0**ixscal) 
y(k) = y(k)/(10.0**iyscal) 
continue 


C BEGIN GRAPHICS SECTION. 


call 
eat | 
& 

call 
call 


call 
call 
call 
eal] 


call 
call 
call 
San | 


qsmode (gmode) 

gplot (160,600,30, 180, xmin, xmax, ymin, ymax, xmin, ymin, 10, yx, 
aspct) 

gsetup (ndots, icolor, 1symbol ,klrsym) 

gptxt (40, title, icolor,29,24) 


qxaxis (xmin, xmax, xmajor,minorx, label , ndec) 
epee (14> xlabl  ieolor,40,0) 

gptxt (6,scal,icolor, 68,1) 

qgnput (576,8,scalx, 0) 


qyaxis (ymin, ymax, ymajor,minory, label , ndec) 
Gomce(i4,Vlabllnicollom, O-12) 

gotxt (6,scal,icolor,0,22) 
qgnput (28 ,176,scaly, 0) 


Zou 


C OVERLAY “GRID ONIG] TE Piet lee oer cir ier 


1f((grid.eq.'Y').or. (grid.eq.'y')) then 
call gridd() 
endif 


C PLOT THE POINTS OF THE ARRAYS. 


call gtabl (itype,numpts,x,y) 


C PRINT HARDCOPY IF SPECIFIED: 
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1f ((copy.eq. 'y') .or. (copy.eq. 'Y')) then 
call qpscrn 
endif 


call qinkey (iextend, key) 
call qsmode(tmode) 
continue 


write(*,*) 'Plotting completed, returning to DOS.' 


close (unit=1) 
if(ierr.gt.0) then 

write(*,110) infile, ierr 
endif 


CrkkekekeRK INPUT FORMAT *xeeeexX 


100 
102 
104 
G5 
106 


format (11) 

format (13) 

fornat (a40) 

format (al4) 
formae (hl2 sere) fl 0) 


CEBKKKKKKKKEKKKEKKEKEKKKKEKEKKERKKEKKKEK 


Oa: 
107 


108 
109 


110 
Te 


Ve 


format (al) 
Oformat (1x, 'Do you want a hardcopy of the plot to be', 

1' generated next ? Y/N <CR>',\) 
Oformat (1x, 'To begin the plotting or to exit from the', 

1' plotting enter <CR>.',\) 

format (al2) 

format (1x, ‘Error opening file: ',al2)"" Emer code =) 14) 
Oformat (/////,1x,'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 
1' BY <CR>.',/,' IF YOU DESIRE TO MAKE A Trost Rushes 
2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: PLOTDAT.TST', 
ay TYPE: PLOTDAT.TST <CR>',/,' FILENAME:',\,) 

format (1x, 'Do you want a grid to overlay the plot ? Y/N <cR>',)\) 


end 


Zog 


Cee) 


SUBROUTINE: scale 


PURPOSE: THIS SUBROUTINE FINDS THE LARGEST INTEGER POWER OF TEN 
OCCURRING IN EITHER valmin OR valmax. THE RESULTING 
EXPONENT IS RETURNED TO THE CALLING PROGRAM IN iscal. 
THE SUBROUTINE ALSO SCALES valmin AND valmax BEFORE 
RETURNING THESE VALUES TO THE MAIN PROGRAM. 


subroutine scale(valmin, valmax, iscal,c) 
Character c*l 


FIND THE LARGEST INTEGER POWER OF 10 IN THE SEQUENCE. 
if (valmax.ne.0.0) then 
argl = 10910 (abs (valmax) ) 
endif 
if (valmin.ne.0.0) then 
arg2 = 10910 (abs (valmin) ) 
endif 
iscal = int (max(argl1,arg2) ) 
SCALE THE MAXIMUM AND MINIMUM VALUES OF THE SEQUENCE. 


valmin 
valmax 


valmin/ (10.0**iscal) 
valmax/ (10.0**iscal) 


CREATE A BUFFER SPACE FOR THE ABSCISSA VALUES OF THE PLOT. 
1f(c.eq.'y') then 


if ((valmin.1t.0.0) .and. (valmax.1t.0.0)) valmax 
if ((valmin.gt.0.0).and. (valmax.gt.0.0)) valmin 
tempmin = anint(-1.0+valmin) 

tempmax = anint(1.0+valmax) 


Oo © 
OO 


if(valmin.ne.0.0) then 
if(abs(valmin) - 0.1*abs(tempmin)) 3,4,4 
tempmin = .1*tempmin 
SOE 2 
valmin = valmin + .1*tempmin 
endif 


if (valmax.ne.0.0) then 
if (abs (valmax) - 0.1*abs(tempmax)) 6,7,7 


Zo5 


6 tempmax = .1*tempmax 


JOwco. 5 
7 valmax = valmax + .1*tempmax 
endif 
endif 
return 
end 
GC SUBROUTINE: gridd 


PURPOSE: ‘THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM TO CREATE 
A GRID OVERLAY CONSISTING OF BOTH HORIZONTAL AND VERTICAL 
DASHED LINES EXTENDING FROM THE MAJOR TIC MARKS OF THE 
AS. 


QO 00 


subroutine gridd() 
C CREATE HORIZONTAL DASHED LINES AT THE MAJOR TIC MARKS OF THE PLOT. 


do 500 i=1, 5 

li = 29 + 30*i1 

call gdash(5,160,11,600,1i,3) 
500 continue 


C CREATE VERTICAL DASHED LINES AT THE MAJOR TIC MARKS OF THE PIOT. 
do 501 j=1, 5 
J} = 159 + 88*5 
call qdash(7,3j,30,33,179,3) 

501 continue 


return 
end 
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